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1.0  INTRODUCTION 


Nonlinear  optical  (NLO)  materials  are  becoming  increasingly  important  to 
the  Air  Force,  and  their  expanding  use  in  future  systems  is  inevitable.  Applications 
ranging  from  communications  and  optical  computing  to  lasers  and  laser  hardening 
will  all  be  affected  by  the  development  of  these  materials.  Because  of  this  need, 
basic  research  and  development  of  these  materials  are  extremely  important. 
Within  the  Materials  Directorate  of  Wright  Laboratory,  the  Electronic  and  Optical 
Materials  Branch  (WL/MLPO)  is  performing  basic  R&D  in  various  areas  of  nonlinear 
optical  materials.  Central  to  this  research  is  the  measurement  of  the  optical 
properties  of  these  materials. 

In  order  to  apply  these  materials  to  device  and  systems,  it  is  important  to 
understand  how  they  behave  under  the  influence  of  various  forces  and  conditions. 
These  include  applied  voltages  and  currents,  incident  electromagnetic  radiation 
and  temperature  changes.  How  they  behave  under  these  various  conditions  can 
be  either  useful  or  detrimental  depending  on  the  application.  In  the  case  of  optical 
transmission,  changes  in  material  properties  due  to  applied  voltage  are  useful  for 
applications  where  modulation  is  important.  On  the  other  hand,  changes  in 
characteristics  due  to  temperature  fluctuations  can  be  detrimental  when  operating 
in  harsh  environments.  Various  methods  and  techniques  have  been  developed  to 
characterize  these  materials  and  predict  their  behavior  in  a  wide  variety  of 
applications. 

One  important  parameter  of  NLO  materials  is  the  attenuation  of  light.  High 
loss  materials  can  be  useful  for  filtering  applications  especially  when  the  loss  is 
wavelength  dependent.  Low  loss  materials  are  very  useful  for  transparent  window 
applications  and  waveguiding.  In  addition,  knowing  the  loss  of  a  material  can  help 
determine  the  nature  of  its  structure. 
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The  losses  in  NLO  materials  can  occur  from  many  sources.  For  guided  light 
structures,  these  include  scattering  due  to  bulk  and  surface  defects  and  absorption 
due  to  resonance,  losses  due  to  substrate  coupling  and  losses  from  irregularities  in 
the  interface  between  the  guiding  layer  and  the  substrate.  There  are  various 
methods  that  can  be  used  to  measure  these  losses  and  two  of  the  primary  methods 
used  in  WL/MLPO  involve  measuring  the  propagation  loss  of  planar  waveguides 
fabricated  from  the  material  being  tested.  This  report  describes  the  design  and 
implementation  of  a  fully  automated  waveguide  stage  that  allows  the  measurement 
of  these  propagation  losses. 
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2.0  EXPERIMENTAL  BACKGROUND 


Two  techniques  used  in  WL/MLPO  tor  measuring  the  propagation  loss  in 
planar  waveguides  are  the  out-of-plane  scattering  technique1  and  the  three-prism 
measurement  technique2.  These  two  techniques  are  similar  in  their  measurement 
method  and  their  geometrical  requirements.  Both  employ  channel  or  planar 
waveguides,  and  in  both,  the  relative  intensity  of  light  is  measured  at  points  along 
the  propagation  path.  In  the  out-of-plane  technique,  the  relative  intensity  of  the 
light  scattered  perpendicular  to  the  plane  of  propagation  is  measured  at  many 
points  along  the  guide,  while  in  the  three-prism  method,  guided  light  is  coupled  out 
from  the  waveguide  at  various  points  and  its  intensity  is  measured.  In  order  to 
understand  the  design  of  the  waveguide  stage,  it  is  useful  to  explore  the 
experimental  basis  of  these  two  techniques. 

2.1  THE  OUT-OF-PLANE  TECHNIQUE 

The  out-of-plane  scattering  technique  (graphically  shown  in  Figure  1)  is 
primarily  used  to  measure  waveguides  with  propagation  losses  higher  than  about 
1  dB/cm.  When  using  the  visible  wavelengths,  these  waveguides  usually  show  a 
characteristic  bright  streak  along  the  guide  path.  This  is  indicative  of  light  being 
scattered  from  confined  waveguide  modes  from  scattering  centers  within  the 
waveguide  layer  and  at  the  interfaces.  The  intensity  of  the  scattered  light  can  be 
measured  using  a  detector  which  is  suspended  above  the  streak  and  is  moved 
parallel  to  the  streak. 


Guided  Light  Bearn 


FIGURE  1  -  Out-of-Plane  Scattering  Technique  Schematic 

The  scattering  centers  are  assumed  to  be  homogeneous  anc  evenly 
distributed  over  the  length  of  the  waveguide.  This  is  required  if  a  reasonable 
comparison  is  to  be  made  of  the  scattered  light  intensity  at  various  points  along  the 
propagation  path.  Inhomogeneities  in  the  distribution  of  scattering  centers  cause 
substantial  nonuniformities  in  the  scattered  light  intensity  along  the  direction  of 
propagation.  The  result  is  an  unreliable  figure  for  propagation  loss  for  the 
waveguide. 

The  actual  propagation  loss  for  this  technique  is  calculated  using  Beer's 
Law.  This  is  given  in  equation  1 .  The  loss  value  is  obtained  by  taking  the  slope  of 
the  log  of  the  intensities  (this  is  a  in  equation  1)  between  the  initial  intensity  reading 
and  each  subsequent  reading  of  the  scattered  output  intensities  at  points  along  the 
guide  path. 
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I(z)  =  loe'®2 


(1) 


Propagation  Loss  in  dB/cm  =  10  log1^ 

■o 

-  10  log^j^ —  =  10  logfe'02)  =  -10az  log(e)  =  -lOaz  j~|^ 

=  -4.34302 

Where 

lQ  =  relative  out-scattered  intensity  at  the  first  measured  point 
l(z)  =  relative  out-scattered  intensity  at  point  z  along  the  path 
a  is  the  attenuation  factor 
z  is  the  distance  in  cm  {set  to  1  cm) 

a  is  determined  by  a  least-squares  curve  fit  or  by  plotting  the  data  (i.e.  I(z))  on  a  log  scale  and  taking 
the  slope. 


A  distinct  advantage  of  this  technique  is  the  ability  to  measure  losses  in 
“softer"  waveguide  materials  such  as  polymers  and  organics.  Since  the  detector 
never  comes  in  contact  with  the  waveguide  the  surface  is  never  disturbed.  This  is 
not  the  case  with  the  three-prism  technique. 

2.2  THE  THREE-PRISM  TECHNIQUE 

The  three-prism  technique,  as  the  name  implies,  employs  three  prisms  to 
couple  light  into  and  out  of  a  waveguide.  This  is  shown  in  Figure  2.  The  first 
prism,  called  the  input  prism,  couples  light  energy  into  the  waveguide.  The  other 
two  prisms,  called  the  measurement  and  exit  prisms,  respectively,  are  used  in 
conjunction  with  the  appropriate  detectors  to  measure  the  intensity  of  the  out- 
coupled  light  along  the  propagation  path  of  the  waveguide.  This  technique  works 
well  when  the  waveguides  are  sufficiently  long  (1-2  inches)  and  it  is  uniquely 
suited  for  measurements  where  the  losses  for  the  materials  are  relatively  low  (<1 
dB/cm). 
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FIGURE  2  -  Three-Prism  Measurement  Technique  Schematic 

The  three-prism  measurement  is  performed  by  using  the  input  prism  to 
couple  light  into  the  waveguide.  The  relative  intensity  of  the  light  inside  the  guided 
path  is  then  measured  by  using  the  measurement  and  exit  prisms.  First,  a 
quiescent  light  intensity  is  measured  using  the  exit  prism  with  the  measurement 
prism  off  of  the  waveguide.  This  value,  Peo,  is  used  as  the  reference  for  all 
measurements  taken  along  the  points  of  the  guide  path.  To  make  the  loss 
measurements,  the  measurement  prism  is  pressed  onto  the  waveguide  at  equally 
spaced  points  along  the  guide  path  and  intensity  readings  from  both  the 
measurement  (Pm)  and  exit  prisms  (P6)  are  taken.  These  values  and  P80  are  used 
to  calculate  the  relative  decrease  in  intensity  at  each  point  along  the  waveguide. 
The  loss  in  dB/cm  given  in  equation  2,  is  then  calculated  by  taking  the  slope  of 
these  calculated  values  when  plotted  on  a  log  scale.  The  advantage  of  using  the 
exit  prism  is  that  it  eliminates  the  need  to  know  the  coupling  coefficient  of  the 
measurement  prism. 
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3.0  SYSTEM  REQUIREMENTS 


An  automated  system  that  can  be  used  to  make  out-of-plane  and  three-prism 
loss  measurements  for  optical  waveguides  must  meet  certain  requirements.  For 
example,  there  are  certain  geometric  requirements  that  affect  the  accuracy  of  the 
measurements.  One  of  these  is  the  need  for  a  known  reference  for  distance 
measurements.  In  addition,  accurate  light  intensity  measurements  have  certain 
conditions  that  must  be  met.  In  the  case  of  the  out-of-plane  measurement,  only  a 
narrow  portion  of  the  guiding  streak  can  be  measured  at  each  point  if  an  accurate 
loss  measurement  is  to  be  made.  These  requirements  necessarily  affect  the 
design  of  the  measurement  system,  and  they  will  be  explored  more  fully  in  the 
following  sections. 

3.1  SPECIFIC  REQUIREMENTS 

There  are  many  geometrical,  electrical,  and  optical  requirements  for  a 
successful  waveguide  stage  system.  First,  a  planar  surface  is  required  to  support 
waveguide  substrates.  This  is  needed  to  prevent  damage  to  the  wafers  when 
pressure  is  applied  from  the  coupling  prisms.  Secondly,  motion  along  the 
waveguide  length  must  be  strictly  controlled.  The  travel  path  must  be  parallel  to  the 
direction  of  the  propagation  path.  The  positions  along  the  path  where 
measurements  are  to  be  taken  must  be  accurately  known,  and  they  must  be 
repeatable.  This  is  necessary  if  multiple  measurements  of  the  same  sample  are  to 
be  taken  to  verify  operation.  In  addition,  smooth,  equal  pressure  must  be  applied  to 
the  prisms  when  coupling  to  the  waveguide.  This  is  necessary  to  ensure  proper 
coupling  and  to  prevent  damage  to  the  wafer. 
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Propagation  Loss  in  dB/cm 
Where 


=  -4.343az 


(2) 


l(z)  =  ratio  of  out-coupled  light  from  the  exit  and  measurement  prisms 
pmPeo  _  -02 
"Peo  -  Pe  ' 
a  is  the  attenuation  factor 
z  is  the  distance  in  cm  (set  to  1  cm) 

Pm  is  the  measurement  prism  intensity 
Pe  is  the  exit  prism  intensity 

Peo  is  the  quiescent  exit  prism  intensity  (measurement  prism  off  the  waveguide) 


a  is  determined  by  a  least-squares  curve  fit  of  l(z)  or  by  plotting  the  data  (i.e.  I(z))  on  a  log  scale  and 
taking  the  slope. 


The  three-prism  method,  as  in  the  case  of  the  out-of-plane  method,  also 
relies  on  a  certain  level  of  uniformity  in  the  waveguide.  Accurate  loss 
measurements  over  a  distance  still  require  a  uniform  distribution  of  loss  centers. 
However,  nonuniformities  in  the  waveguides  such  as  bright  spots  are  easily 
detectable  with  this  technique,  and  the  information  obtained  can  be  useful  in 
determining  the  overall  physical  quality  of  the  waveguide.  The  main  disadvantage 
of  this  technique  is  that  it  requires  "harder"  waveguide  materials.  This  is  due  to  the 
fact  that  the  prisms  must  be  pressed  onto  the  surface  of  the  guide  in  order  to  obtain 
sufficient  contact  to  allow  coupling.  Softer  materials  may  be  damaged  by  this 
technique,  and  any  data  taken  on  a  damaged  surface  would  be  useless. 

Both  of  these  techniques  employ  planar  waveguides  and  make  intensity 
measurements  at  points  along  the  guide  path.  These  commonalities  lend 
themselves  to  a  single  test  setup  that  could  easily  be  changed  to  accommodate 
either  method. 
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Interchangeability  is  also  an  issue.  The  system  must  be  able  to  be 
converted  frcm  the  three-prism  technique  to  the  out-of-plane  scattering  technique 
with  a  minimum  of  effort.  To  meet  this  requiiement,  parts  of  the  system  must  be 
designed  to  allow  easy  disassembly  and  reassembly  without  affecting  the  ultimate 
accuracy  and  repeatability  of  the  system.  In  addition,  all  parts  that  are  not 
removable  must  be  designed  to  allow  various  attachments  to  be  added  with  ease. 
This  accommodates  such  things  as  various  size  prisms  and  detectors. 

The  electrical  and  optical  requirements  are  also  numerous.  For  example, 
coupling  prisms  must  have  as  much  available  space  as  possible  for  launching  light 
into  and  out  of  the  waveguide.  This  is  required  in  order  to  facilitate  as  many 
coupling  angles  as  possible  for  a  wide  variety  of  guiding  modes.  Additionally,  the 
detectors  used  for  measuring  the  out-coupled  or  out-scattered  light  must  be  able  to 
capture  light  at  any  of  the  out-coupling  angles  or  at  any  position  along  the 
waveguide.  Another  requirement  is  the  need  to  minimize  backscattered  light 
detection.  The  detectors  must  be  designed  to  eliminate  unwanted  light  from  input 
coupling  and  from  the  surroundings.  This  light  adversely  affects  the 
measurements. 

Although  not  necessary  for  the  three-prism  technique,  it  is  advantageous  to 
know  the  force  which  is  being  applied  to  the  coupling  prisms.  This  allows 
repeatability  in  coupling  pressure  and  can  also  be  used  to  prevent  excessive  force 
from  being  applied  to  sensitive  waveguides.  This  is  best  accomplished  through  the 
use  of  force  detectors  such  as  load  cells. 

A  final  requirement  for  a  waveguide  stage  system  is  computer  control  for 
movement  and  data  acquisition.  In  the  modern  laboratory  setting,  this  is  essential. 
These  measurements  are  tedious  and  time  consuming.  Doing  these  types  of 
measurements  "by  hand"  also  greatly  increases  the  chance  for  errors.  Computer 
control  of  all  motion  and  data  acquisition  yields  vastly  improved  accuracy  and 
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repeatability  while  greatly  reducing  the  chance  for  error.  In  addition,  allowing  a 
computer  to  take  control  frees  the  researcher  for  other  more  important  tasks. 

The  waveguide  stage  measurement  system  has  been  designed  to  meet 
these  requirements  by  combining  commercially  available  equipment  and  custom 
designed  parts. 
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4.0  EXPERIMENTAL  APPARATUS 


An  overall  schematic  of  the  waveguide  measurement  system  is  shown  in 
Figure  3.  The  heart  of  the  system  is  the  waveguide  stage  and  its  associated 
electronic  and  mechanical  components.  These  are  explained  fully  in  Section  5. 
The  remaining  supporting  equipment  consists  of  the  computer  and  electronic 
equipment  necessary  to  take  data  from  the  waveguide  stage. 

The  data  acquisition  portion  of  the  waveguide  measurement  system  is 
designed  around  a  Hewlett  Packard  9000  330  MMA  computer  using  the  HP  BASIC 
5.0  programming  language.  This  allows  easy  programming  for  automated  data 
acquisition.  In  addition,  this  computer  is  connected  to  a  local  area  network  which 
allows  easy  transfer  of  data  to  other  systems  more  suitable  for  analysis  and 
presentation. 

The  HP  computer  controls  various  external  equipment  necessary  for 
supplying  stimulus  and  acquiring  response  to  and  from  the  waveguide  stage.  In 
order  to  measure  optical  response  from  detectors  on  the  waveguide  stage  as  well 
as  pressure  readings  from  load  cells,  a  Hewlett  Packard  HP3457A  Digital 
Multimeter  (DMM)  is  used.  This  DMM  has  an  HP44492  10-channel  Relay  Input 
Card  option  that  allows  the  DMM  to  be  switched  between  1-of-10  input  channels. 
This  allows  a  single  DMM  to  be  used  to  measure  all  signals  from  the  waveguide 
stage. 

In  order  to  drive  the  rail  table  portion  of  the  waveguide  stage  (rail  table 
explained  in  Section  5),  a  Daedal  MC  2000/MD  23  Linear  Motion  Controller/NEMA 
Motor  Driver  is  employed.  This  combination  allows  accurate  computer  control  and 
measurement  of  the  out-coupling  position  of  the  measurement  prism  of  the 
waveguide  stage. 
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HP9000  330  Computer 


HP6942A  Multiprogrammer 


FIGURE  3  -  Overall  Waveguide  Measurement  System  Schematic 


Also  employed  in  the  waveguide  measurement  system  is  an  HP6942A 
Multiprogrammer.  This  device  is  a  multipurpose  card  cage  that  allows  various 
special  purpose  cards  such  as  relay  cards  or  D/A  converter  cards  to  be  accessed 
by  a  computer.  As  used  in  this  system,  an  HP69735  Pulse  Train/Stepper  Motor 
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card  is  used  in  the  multiprogrammer  to  supply  pulses  to  a  Hurst  stepper  motor  to 
control  the  measurement  arm  of  the  waveguide  stage  (see  Section  5). 

The  rest  of  the  system  is  comprised  of  the  custom  mechanics  and  electronics 
required  to  interface  between  the  DMM,  the  Multiprogrammer  and  the  waveguide 
stage.  These  custom  components  provide  measurement  arm  drive  and  I/O  signal 
condition  necessary  for  data  acquisition.  Their  purpose  and  function  is  explained 
fully  in  Section  5. 
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5.0  SYSTEM  DESIGN 


The  system  surrounding  the  waveguide  stage  (Figure  4)  contains 
mechanical  hardware,  electronics  and  optics,  and  computer  software.  This  is  a 
mixture  of  commercial  and  custom  components,  and  each  of  these  will  be 
discussed  in  the  context  of  full  system  operation. 

5.1  MECHANICAL  HARDWARE 

The  mechanical  hardware  of  the  waveguide  is  comprised  of  a  commercially 
available  rail  table  to  which  custom-designed  components  have  been  added.  The 
custom  components  are  designed  for  specific  application  to  three-prism  or  out-of¬ 
plane  scattering  loss  measurements.  The  main  components  are  the  stage  base 
plate,  the  input  and  output  arms  and  the  measurement  arm.  All  parts  are  machined 
from  aluminum,  and  they  are  black-anodized  for  use  in  laser  environments. 

5.1.1  THE  RAIL  TABLE 

The  rail  table  (Daedal  Model  506041 S-LH)  has  4  inches  of  linear  travel  and 
is  equipped  with  a  five-pitch  double  nut  ball  screw  mechanism  to  minimize 
backlash.  The  rail  table  is  driven  by  a  standard  NEMA  23  frame  stepper  motor 
having  10,000  steps  per  revolution  of  rotational  resolution.  This  allows  the  rail 
table  to  have  ±0.0002-inch  position  repeatability  and  ±0.00025  in/in  position 
accuracy.  The  NEMA  23  motor  is  driven  by  a  Daedal  single  axis  motion  controller 
complete  with  IEEE-488  interface  (Daedal  Model  MC  2000).  This  provides 
complete  computer  control  of  the  motion  of  the  rail  table  including  the  speed, 
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acceleration/deceleration  rate  and  the  step  resolution  between  measurements 
positions. 


FIGURE  4  -  Photograph  of  the  Waveguide  Stage 


5.1.2  THE  BASE  PLATE 


The  base  plate  for  the  waveguide  stage  is  shown  in  Figure  5.  The  base 

plate  serves  as  the  mounting  seat  for  the  waveguide  substrates  and  as  a  mount  for 
the  input  and  output  arms.  The  base  plate  is  mounted  to  the  rail  table  using  ^  •  20 

NC  screws.  The  plate  has  been  precision  machined  for  flatness  and  it  is  aligned  to 
the  rail  table  using  set  pins  and  offset  mounting  holes  for  the  \  -  20  screws.  This 

ensures  that  the  base  plate  stays  aligned  parallel  to  the  rail  table  and  that  it  can 
only  be  mounted  with  one  unique  orientation  in  the  event  disassembly  is  required. 
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In  order  to  ensure  maximum  flatness,  the  rail  table  was  machined  "true"  at  the  time 
of  manufacture  of  the  base  plate. 


FIGURE  5  -  The  Waveguide  Stage  Base  Plate 

The  base  plate  has  a  set  of  8-32  NC  mounting  holes  that  are  equally  spaced 
along  two  ^  inch  troughs  that  run  along  each  side  of  the  base  plate.  These  troughs 

hold  the  input  and  output  arm  mechanisms  and  allow  the  arms  to  be  positioned 
and  secured  anywhere  along  the  length  of  the  base  plate.  This  allows  maximum 
flexibility  while  maintaining  parallel  positioning  with  respect  to  the  sides  of  the  base 
plate. 

The  base  plate  is  raised  up  from  the  surface  of  the  rail  table  j  inch  to  allow 

the  measurement  arm  to  be  mounted  to  the  rail  table.  This  in  turn  allows  the 
measurement  arms  to  move  along  the  length  of  the  base  plate  with  the  accuracy  of 
the  rail  table. 
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5.1.3 


THE  INPUT,  OUTPUT,  AND  MEASUREMENT  ARMS 


The  input  and  output  arms,  shown  in  Figure  6,  are  identical  in  construction. 
Each  arm  is  positioned  over  the  surface  of  the  waveguiding  substrate.  The  input 
arm  is  placed  at  the  front  of  the  waveguide,  and  it  is  used  to  launch  light  into  the 
guide.  The  output  arm  is  placed  at  the  end  of  the  guide,  and  it  is  used  to  measure 
the  exit  intensity  of  the  light  exiting  from  the  waveguide  during  three-prism 
measurements.  It  is  not  used  for  out-of-plane  measurements  and  can  be  removed. 


FIGURE  6  -  The  Input/Output  Arm 

The  input/output  arms  are  comprised  of  various  moving  parts  that  facilitate 
proper  placement  of  the  prisms  onto  the  waveguide  substrate.  This  is  shown  in 
Figure  7.  Each  arm  is  identical  with  the  exception  of  a  removable  detector 
attachment  for  the  output  arm. 

The  operation  of  the  input/output  arm  is  straightforward.  A  set  of  steel  rods  is 
used  to  Control  the  motion  of  the  various  moving  parts  of  the  arm.  Referring  to 


Figure  7,  the  two  outer  steel  rods  are  firmly  press-fit  into  the  slide  bracket.  This 
slide  bracket  slip-fits  into  the  base  plate  and  is  screwed  down  into  position  over  the 
waveguide  substrate.  The  two  inner  steel  rods  are  press-fit  into  the  upper  guide 
bracket  and  are  allowed  to  slip  freely  through  the  slide  bracket.  The  lower  guide 
bracket  has  a  prism  attachment  or  and/or  a  detector  attachment  (depending  on 
which  measurement  technique  is  being  used),  and  it  is  also  allowed  to  slip  freely 
over  the  two  inner  steel  rods.  The  whole  mechanism  is  raised  and  lowered  onto 
the  waveguide  substrate  by  a  micrometer  screw  assembly  and  two  springs  located 
on  the  outer  steel  rods. 


FIGURE  7  -  Input/Output  Arm  Schematic 

A  unique  feature  of  the  arms  is  the  use  of  compression  load  cells  in  the  axis 
of  applied  force  of  the  prisms.  These  load  cells  (Sensotec  Model  1 3,  AL322BN) 
are  placed  in  all  three  arms  of  the  waveguide  stage,  and  they  are  located  in  the  cup 
of  the  lower  guide  bracket.  Due  to  the  design  of  the  arms,  the  load  cell  will  only 
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measure  the  force  being  applied  to  the  prisms.  This  is  extremely  useful  when  the 
stage  is  being  used  to  measure  polymer  and  other  soft  material  waveguides. 
Excessive  pressure  can  damage  these  types  of  guides  making  the  measured  data 
useless.  In  addition,  these  load  cells  allow  the  coupling  pressure  to  be  maintained 
and  duplicated  between  measurements  on  the  same  sample  and  from  sample  to 
sample. 

The  measurement  arm  is  identical  to  the  input/output  arms  in  construction 
and  operation  with  two  exceptions.  First,  the  measurement  arm  does  not  have  a 
slide  bracket  but  rather  has  a  two-piece  bracket  that  attaches  to  the  rail  table 
instead  of  the  base  plate.  This  allows  the  measurement  arm  to  be  moved  along  the 
waveguide  path  to  make  measurements  with  the  positioning  accuracy  of  the  rail 
table.  Second,  the  micrometer  screw  assembly  of  the  measurement  arm  is  driven 
by  a  computer-controlled  stepper  motor.  This  allows  complete  control  of  the  data 
acquisition  by  software  programming. 

Complete  drawings  for  the  input/output  and  measurement  arms,  as  well  as 
all  other  custom-designed  mechanical  parts,  can  be  found  in  the  Appendices. 

5.2  ELECTRONICS  AND  OPTICS 

The  electronics  and  optics  for  the  waveguide  stage  consist  of  the  voltage 
references,  amplifiers,  prisms,  etc.  that  allow  the  actual  acquisition  of  the  data 
pertaining  to  the  waveguide  under  test.  This  can  be  classified  into  three  groups:  (1) 
the  prisms  and  detectors  and  their  associated  electronics,  (2)  the  load  cells  and 
their  electronics,  and  (3)  the  measurement  stepper  motor.  The  first  two  are  custom 
implementations,  and  the  last  is  a  commercially  available  unit. 
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5.2.1 


PRISMS  AND  DETECTORS 


The  prisms  are  the  only  strictly  optical  component  for  the  stage  and  their 
operational  requirements  are  mechanical  in  nature,  however,  their  discussion  with 
the  detectors  is  warranted.  As  mentioned  previously,  the  prisms  must  be  applied  to 
the  waveguide  with  a  steady  and  even  pressure.  To  accomplish  this,  a  special 
prism  holder  was  developed.  A  representative  holder  is  shown  in  Figure  8.  These 
holders  come  in  various  sizes  to  accommodate  various  size  prisms. 

The  prism  holders  are  interchangeable  and  attach  to  the  lower  guide 
brackets  using  2*56  NC  screws.  This  allows  all  holders  to  fit  into  the  lower  guide 
bracket  making  it  very  convenient  to  change  from  one  type  of  prism  to  the  other. 


FIGURE  8  -  Prism  Holder  and  Prism 

The  holders  were  originally  lined  entirely  on  the  inside  with  felt.  This 
provided  both  a  friction  grip  as  well  as  protection  from  cracking  for  the  prisms. 
However,  the  felt  placed  on  the  inside  top  produced  excessive  cushioning  to  the 
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prism  when  pressure  was  applied.  This  caused  a  classic  exponential  relaxation  in 
the  pressure  applied  to  the  prism  as  the  felt  continued  to  compress.  This  made 
accurate  pressure  measurements  with  the  load  cells  very  difficult.  To  remedy  this 
problem,  the  felt  on  the  inside  top  was  replaced  with  thin  teflon  sheeting.  This 
allowed  protection  of  the  prism  top  surface  while  greatly  reducing  the  compression 
relaxation. 

The  detectors  associated  with  the  three-prism  and  the  out-of-plane 
techniques  have  both  mechanical  and  electronic  fixturing.  The  physical  setup  for 
the  detectors  is  different  for  each  technique.  For  the  out-of-plane  technique  there  is 
only  one  detector  and  it  must  be  suspended  over  the  waveguide  on  the 
measurement  arm.  For  the  three-prism  technique,  two  detectors  are  required,  one 
for  the  measurement  arm  and  one  for  the  output  arm.  These  detectors  must  be 
placed  as  close  as  possible  to  the  prisms  on  each  arm  in  order  to  capture  the 
exiting  light  regardless  of  the  out-coupling  angle.  In  addition,  the  fixturing  for 
mounting  the  detectors  for  both  techniques  must  allow  easy  interchangeability. 

The  configurations  for  detector  mounting  for  both  techniques  are  shown  in 
Figures  9  and  10.  For  the  three-prism  technique,  the  detectors  are  fixed  to  an 
angled  mounting  bracket  using  silicone  adhesive.  The  bracket  is  then  attached  to 
the  lower  guide  bracket  using  the  same  2-56  NC  screws  that  attach  the  prism 
holder.  For  the  out-of-plane  technique,  a  special  detector  mount  was  fabricated 
that  attaches  to  the  lower  guide  bracket  in  place  of  the  prism  holder  on  the 
measurement  arm.  This  holder  is  a  two-piece  unit  and  the  detector  fits  in  between 
the  pieces.  A  small  slit  in  the  bottom  piece  that  is  positioned  over  the  detector  is  the 
input  for  the  scattered  light  from  the  waveguide. 


21 


FIGURE  9  -  Three-Prism  Detector  Holder  Arrangement 


FIGURE  10  -  Out-of-Plane  Detector  Holder  Arrangement 

The  detectors  used  for  both  techniques  are  Hamamatsu  model  S1227-66BQ 
silicon  photodiodes.  These  detectors  have  a  thin,  rectangular  shape  that  is  ideally 
suited  for  this  application.  The  overall  size  of  these  detectors  is  10  mm  x  9  mm  x  2 


mm  with  an  active  detector  area  of  33  mm2.  The  S1227-66BQ  has  a  response  from 
190  nm  to  1000  nm  with  a  peak  at  720  nm  and  a  typical  radiant  sensitivity  of  0.35 
A/W  at  the  peak  wavelength3. 

The  electronic  circuitry  for  the  detectors  is  shown  in  Figure  11.  The  detectors 
form  part  of  a  variable  gain  current-to-voltage  converter.  The  gain  for  each 
amplifier  is  controlled  by  a  series  of  resistors  connected  to  a  rotary  switch.  This 
allows  gain  adjustment  for  different  light  intensity  levels.  The  current  generated  in 
the  detector  due  to  incident  light  is  converted  to  a  voltage  at  the  output  of  the 
operational  amplifier  (op-amp)  according  to  equation  3. 

v0  =  -lrRf  volts  (3) 

where 

Ir  =  total  photodiode  current  in  amps 
Rf  =  feedback  resistor  in  ohms 


The  photocurrent,  Ir,  for  the  S1227-66BQ  is  given  in  equation  44.  The  second  and 
third  terms  of  this  equation  can  be  ignored  because  the  series  resistance  of  the 
photodiode  is  small  (Rs  <  10  Q)  and  because  the  shunt  resistance  is  large  (Rsh  > 
107  Q)5.  This  makes  the  current  and,  thus,  the  output  voltage  from  the  op-amp, 
very  nearly  directly  proportional  to  the  light  intensity  striking  the  detector. 


qlrR.  I  D 

Ir=  IL-Is(eTF-l)-iP 

Ksh 

where 

lr  =  total  current  pulled  through  the  photodiode 

lL  =  Current  due  to  to  the  incident  light  on  the  detector 

ls  =  photodiode  reverse  saturation  current 

Rs  =  photodiode  series  resistance 

Rsh  =  photodiode  sh  >v,  resistance 

q  =  electronic  charge 

k  =  Boltzmann's  constant 

T  =  Absolute  temperature  of  the  photodiode 
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FIGURE  11  -  Detector  Electronics 


The  74121,  the  relays  and  the  transistor  in  the  circuit  of  Figure  1 1  have  been 
added  to  prevent  latching  of  the  op-amps  when  the  power  is  first  applied  to  the 
stage  electronics.  It  has  been  experimentally  determined  that  the  high  input 
impedance  of  the  LF351N,  coupled  with  the  low  reverse  bias  current  of  the 
photodiodes  and  the  stray  capacitance  of  the  cabling  connecting  the  photodiodes 
to  the  op-amp,  causes  a  latched  and/or  oscillating  condition  The  74121  is  a  timed 
one-shot  that  shorts  the  inputs  of  the  op-amps  until  the  power  supplies  have 
settled.  This  allows  the  op-amps  to  have  a  stable  reference  when  the  inputs  are 
released  which  eliminates  the  latching  or  oscillating. 

5.2.2  THE  LOAD  CELLS 

The  load  cell  signal-conditioning  electronics  employed  in  the  waveguide 
stage  are  shown  in  Figure  1 2.  Each  arm  of  the  waveguide  stage  has  a  load  cell 
that  measures  the  pressure  being  applied  to  the  prisms.  These  load  cells  operate 
in  a  standard  compensated  Wheatstone  bridge  configuration.  The  bridge  is  driven 
by  a  voltage  reference,  and  the  resistance  in  one  of  the  arms  changes  as  force  is 
applied.  This  change  causes  a  voltage  differential  to  appear  across  the  bridge  that 
is  related  to  the  force  that  is  being  applied6.  This  voltage  is  amplified  using  a 
differential  amplifier,  and  the  output  is  available  as  a  measure  of  the  force  being 
applied  to  the  prisms. 
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In  the  circuit  of  Figure  12,  the  reference  voltage  to  the  load  cells  is  produced 
by  a  temperature-compensated  zener  diode  (LM336Z-5.0)  buffered  by  an 


26 


operational  amplifier  (LM351N).  The  zener  voltage  is  adjusted  using  the 
potentiometer  connected  to  pin  3.  The  differential  voltage  produced  by  the  load 
cell  is  amplified  by  a  Burr-Brown  INA101CM  Instrumentation  Amplifier.  The  gain  of 
this  amplifier  is  set  by  resistors  R1,  R2  and  R3.  This  allows  precision  adjustment  of 
the  full  scale  output  of  the  load  cell. 

5.2.3  THE  MEASUREMENT  STEPPER  MOTOR 

The  stepper  motor  assembly  employed  to  drive  the  measurement  arm  is 
comprised  of  a  commercially  available  stepper  motor  mounted  on  a  custom- 
designed  bracket  .  The  motor  is  a  Hurst  SAS  Series  geared  stepper  motor  with  a 
rotation  speed  of  0.42  rpm  providing  600:1  reduction  with  a  typical  torque  of  200 
oz-in.  The  motor  is  driven  by  a  Hurst  EPC-013  Stepper  Motor  Controller  board. 
This  board  provides  the  drive  current  for  the  motor  as  well  as  the  input/output  to 
allow  manual  and  digital  control  for  the  motor.  The  EPC-013  is  interfaced  to 
custom-designed  electronics  that  allows  switching  between  computer  control  and 
manual  control.  Ultimately,  the  computer  control  is  accomplished  through  a 
Hewlett  Packard  HP6942A  Multiprogrammer  Interface  Pulse  Train  Stepper  Motor 
Controller  card. 

The  EPC-013  provides  inputs  that  allow  control  of  various  aspects  of  the 
stepper  motor.  This  card  controls  the  acceleration/deceleration  of  the  motor,  the 
rotation  direction,  the  phase  setting  (3  or  4)  and  the  run/hold  status.  In  addition,  this 
card  has  a  free  running  pulse  train  to  allow  manual  control  of  the  motor  and  an 
input  for  external  pulse  trains  to  allow  other  circuitry  to  control  the  motor. 

The  custom  electronics  that  serves  as  an  interface  between  the  Hewlett 
Packard  multiprogrammer  and  the  EPC-013  is  shown  in  Figure  13.  This  circuit 
functions  as  a  data  router  that  allows  the  user  to  either  control  the  motor  manually 
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or  by  the  computer.  The  circuit  has  two  digital  data  selectors  (74157)  that  allow 
either  pulses  from  the  computer  or  a  pulse  train  from  the  EPC-013  to  control  the 
motion  of  the  stepper  motor.  Manual/Computer  control  is  determined  by  the  setting 
of  a  DPDT  switch  connected  to  the  select  line  of  one  of  the  74157s.  Another  data 
selector  chooses  from  either  up  or  down  pulses  being  supplied  from  the  computer. 
The  multiprogrammer  pulse  train  card  sends  pulses  out  on  one  of  two  lines 
depending  on  which  rotation  direction  is  desired.  These  pulses  are  distinguished 
by  which  line  is  active.  A  74123  One  Shot  is  triggered  by  the  pulses  and  acts  as  a 
timer  for  the  select  lines  to  the  data  selector.  This  ensures  proper  pulse  routing  and 
duration  to  the  motor  driver  card. 


FIGURE  13  -  Custom  Interface  Electronics 
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This  custom  interface  has  two  special  features.  First,  manual  control 
automatically  overrides  computer  control.  If  anything  goes  wrong,  the  motor  can  be 
controlled  or  shutdown  manually  using  one  of  two  switches.  In  addition,  a  special 
comparator  circuit  provides  auto-shutdown  if  the  load  cell  pressure  exceeds  40  lbs 
of  force. 
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6.0  EXPERIMENTAL  RESULTS 


The  operation  of  the  waveguide  stage  has  been  verified  by  the  three-prism, 
the  two-prism,  and  the  out-of-plane  scattering  techniques7.  Loss  measurements 
using  each  of  the  techniques  were  taken  on  planar  waveguides  made  from 
hexafluoro  isopropylidene-polybenzoxazole  (6F-PBO-1E)  on  oxidized  Si  wafers. 
The  waveguides  were  fabricated  by  spin  coating  1.0-p-thick  layers  of  6F-PBO-1E 
on  1 .4-p-Si02  buffer  layers  on  2-and  3-inch  silicon  substrates.  Loss  measurements 
were  taken  on  a  3-inch  sample  at  a  wavelength  of  X  =  900  nm  using  the  out-of¬ 
plane  and  the  three-prism  and  techniques  for  comparison.  A  2-inch  sample  was 
measured  using  the  two-prism  method  at  a  wavelength  of  X  =  900  nm  to  compare 
losses  between  samples.  The  resulting  data  for  all  samples  were  fitted  to  the 
Beer's  law  relationship  given  in  equations  t  and  2.  The  plots  of  the  data  are  shown 
in  Figures  14  and  15.  The  loss  for  the  3-inch  waveguide  was  found  by  averaging 
the  loss  for  the  three-prism  and  the  out-of-plane  techniques.  The  loss  for  the  two- 
inch  sample  was  taken  from  the  data  provided  by  the  out-of-plane  scattering 
technique.  The  average  loss  for  the  3-inch  sample  was  3.931.565  dB/cm  and  the 
measured  loss  for  the  2-inch  sample  was  3.523  dB/cm. 
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Relative  Intensity  (mV) 


Comparison  of  Loss  Measurements 
6F-PBO-1E  on  3*  Silicon  Wafer 


FIGURE  14  -  Three-Inch  Sample  Measurements 


Two  Prism  Method  Loss  Measurement 


6F-PBO-1E  on  2"  Silicon  Wafer 


FIGURE  15  -  Two-Inch  Sample  Measurement 
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Oscillator 


FIGURE  18  -  Measurement  Arm  Stepper  Motor  Interface 
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FIGURE  19  -  Meas.  Arm  Stepper  Motor  Printed  Circuit  Board 
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Drill  and  tap  undimensioned  holes  for  8-32  NC  screws  (26  holes) 


ICAL  DRAWINGS 
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FIGURE  22  -  Base  Plate  End  View 
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NoMo  Scale 


WL/MLPO 


Drill  to  allow  passage  of  8-32  screw 


FIGURE  25  -  Slide  Bracket  B  I  Side  View 
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FIGURE  28  -  Slide  Bracket  B  II  Top  View 
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Top  View _ 

Tom  Kensky  Not  to  Scale 


FIGURE  30  -  Slide  Bracket  B  II  End  View 
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Wave  Guide  Stage  Assembly _ |  1  pH 

Slide  Bracket  A 
Top  View 

TomKensky 1  Not  to  Scale 


FIGURE  34  -  Slide  Bracket  A  Front  View 
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Wave  Guide  Stage  Assembly _ |  3o<  4 

Slide  Bracket  A 


Adjust  dimension  to  allow  slip  fit  into  the  cup  of  the  Lower  Guide  Bracket 


FIGURE  36  -  Upper  Guide  Bracket  Top  View 
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FIGURE  37  -  Upper  Bracket  Front  View 
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FIGURE  40  -  Lower  Guide  Bracket  Front  View 
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FIGURE  41  -  Lower  Guide  Bracket  Isometric  View 
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FIGURE  42  -  Prism  Holder  A  Top  View 
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Not  to  Scale 


FIGURE  45  -  Prism  Holder  A  Isometric  View 
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FIGURE  46  -  Prism  Holder  B  Top  View 
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FIGURE  48  -  Prism  Holder  B  Front  View 
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Tom  Korwky 
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FIGURE  50  -  Detector  Holder  A  Top  View 
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Torn  Kensky 


FIGURE  51  -  Detector  Holder  A  Side  View 
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FIGURE  53  -  Detector  Holder  B  I  Top  View 
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FIGURE  55  -  Detector  Holder  B  I  Front  View 
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FIGURE  56  -  Detector  Holder  B  I  Isometric  View 
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Not  to  Scale 


0.16*  ,  0.35*  ,  0.16 


FIGURE  59  •  Detector  Holder  B  II  Front  View 
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Perspective  View  (Piece  2  of  2) 
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FIGURE  62  -  Upper  Guide  Bracket  Assembly 
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Rod  mounting  portion  in  Uppei  Guide  Br«  ctot 


FIGURE  63  -  Slide  Bracket  Assembly 
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FIGURE  64  -  Slide  Bracket  B  Assembly 
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FIGURE  66  -  Bracket  Assembly 
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APPENDIX  C  -  SOFTWARE  LISTING 


******************************************** 

**  OPTICAL  WAVEGUIDE  LOSS  MEASUREMENT  PROGRAM  ** 

**  TOM  KENSKY  ** 

**  MATERIALS  DIRECTORATE  WL/MLPO  WPAFB,  OHIO  ** 
**  VERSION  6  2  SEP  93  ** 

************************************************ 


OPTION  BASE  0 

GINIT 

GCLEAR 


*************************************** 

**  DIM  ARRAYS  FOR  USE  BY  SUBROUTINES  ** 

*************************************** 


DIM  Value? ( 10 ) (80! 

DIM  Choices? ( 10 ) [80] 

DIM  Distance? ( 10 ) [80] 

DIM  Constraints? ( 10 )( 80 ] 

DIM  Stage_pos? [ 30 1 
DIM  Fi lename? ( 80 ] 

DIM  Steps? ( 3 ) [10] 

I 

|******************************************** 

! *  *  SET  THE  ADDRESS  OF  THE  EQUIPMENT  ** 

!**  MOTION  CONTROLLER  ADDRESS  IS  16  ** 

! *  *  HP  34B7A  VOLTMETER  ADDRESS  IS  22  ** 

! *  *  HP  6942A  MULT I  PROGRAMMER  ADDRESS  IS  12  ** 

i ******************************************** 


ON  ERROR  GOTO  330 
CSIZE  5 
CLEAR  SCREEN 
MOVE  15,80 

LABEL  *********************************** 

LABEL  "**  SELECT  THE  BASE  ADDRESS  FOR  **’ 

LABEL  “**  THE  EQUIPMENT  (i.e.  which  *** 

LABEL  "**  optical  table  are  you  on?)  **“ 

LABEL  *********************************** 

INPUT  “ENTER  THE  BASE  ADDRESS:  (7  OR  8) Address? 

IF  VAL ( Address? ) =7  THEN 

ASSIGN  @ Daedal  TO  716 

ASSIGN  OVoltmeter  TO  722 

ASSIGN  @Mu 1 t i  TO  712 

GOTO  540 

END  IF 

IF  VAL (Address?) =8  THEN 
ASSIGN  @ Daedal  TO  816 
ASSIGN  @Voltmeter  TO  822 
ASSIGN  @Mu 1 t i  TO  812 
GOTO  540 
END  IF 
GOTO  330 
OFF  ERROR 
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560 

570 

580 

590 

600 

610 

620 

630 

640 

650 

660 

670 

680 

690 

700 

710 

720 

730 

740 

750 

760 

770 

780 

790 

800 

810 

820 

830 

840 

850 

860 

870 

880 

890 

900 

910 

920 

930 

940 

950 

960 

970 

980 

990 

1000 

1010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 

1100 

1110 

1120 

1130 


I  ******************************* 

!  *  *  PROMPT  USER  FOR  CHOICE  OF  ** 
!**  3-PRISM  OR  OUT-OF-PLANE  ** 
!  *  *  TECHNIQUES  ** 

I******************************* 


ON  ERROR  GOTO  630 
CLEAR  SCREEN 
MOVE  15,80 

LABEL  *********************************** 

LABEL  "**  ARE  YOU  DOING  OUT  OF  PLANE  **■ 
LABEL  "**  MEASUREMENTS?  **• 

LABEL  *********************************** 
INPUT  "ENTER  ' Y '  OR  ' N ‘ , Out_of_plane$ 

IF  Out_of_plane$=“ Y"  OR  Out_of_plane$="y " 
Out_of_plane=l 

Out_of_plane=0 

END  IF 

CLEAR  SCREEN 
OFF  ERROR 


THEN 

ELSE 


★  I************************************ 

**  CAN'T  USE  THE  STEPPER  MOTOR  FOR  ** 
**  THE  MEASUREMENT  ARM  WHEN  DOING  ** 
**  OUT -OF- PLANE  MEASUREMENTS  ** 

-ft*-************#*******************#** 


IF  Out_of_plane=l  THEN 

Use_motor=0 
GOTO  1090 

END  IF 

I  if************************************ 

!**  PROMPT  USER  FOR  CHOICE  OF  USING  ** 
!**  THE  STEPPER  MOTOR  FOR  DRIVING  ** 
!**  THE  MEASUREMENT  ARM  ** 

i  ************************************** 


ON  ERROR  GOTO  960 
CLEAR  SCREEN 
MOVE  15,80 

LABEL  *********************************** 
LABEL  "**  ARE  YOU  USING  THE  STEPPER  **’ 
LABEL  "**  MOTOR  FOR  THE  MEASUREMENT  **" 
LABEL  "**  ARM?  *** 

LABEL  >**********************»**********■ 
INPUT  “ENTER  1 Y '  OR  ' N ' " , Use_motor$ 

IF  Use_motor$="Y"  OR  Use_motor$= "y *  THEN 
Use_motor=l 

Use_motor=0 


ELSE 


END  IF 

CLEAR  SCREEN 
OFF  ERROR 


it**************************************************** 

**  INITIALIZE  DAEDAL  MOTION  CONTROLLER:  ** 
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1140 

1150 

1160 

1170 

1180 

1190 

1200 

1210 

1220 

1230 

1240 

1250 

1260 

1270 

1280 

1290 

1300 

1310 

1320 

1330 

1340 

1350 

1360 

1370 

1380 

1390 

1400 

1410 

1420 

1430 

1440 

1450 

1460 

1470 

1480 

1490 

1500 

1510 

1520 

1530 

1540 

1550 

1560 

1570 

1580 

1590 

1600 

1610 

1620 

1630 

1640 

1650 

1660 

1670 

1680 

1690 

1700 

1710 


!**  ENABLE  I EEE- 488 , NORMAL  MODE, SET  DISPLAY  TO  ZERO  ** 
!**  ACCELERAT I ON  =  5  REVS/SEC/SEC,  VELOCITY  =  l  REV/SEC  ** 
!  *  *  COUNTER  ZERO  RESET  ** 

i  ***************************************************** 


OUTPUT  ODaedal  USING  “#,K";‘E  MN  DA  A5 . 0  VI  X0  * , END 

I 

|  ***************-************************************************* 

! *  *  INITIALIZE  HP  3457A  VOLTMETER:  DCV , AUTO ,  I NTERNAL  TRIGGER,  ** 
!**  5  1/2  DIGITS, SELECT  HP  44492  AS  INPUT, FIX  INPUT  Z  TO  10M  ** 

!**  FOR  ALL  RANGES  OF  DCV  ** 

i **************************************************************** 


OUTPUT  QVoltmeter; “DCV  AUTO, .01" 

OUTPUT  OVoltmeter; "TRIG  AUTO¬ 
OUTPUT  OVoltmeter; -TERM  REAR- 
OUTPUT  @Voltmeter; "FIXEDZ  ON" 

i 

i***************************************** 

!**  INITIALIZE  VALUES  FOR  SCROLL  MENU  ** 
! *  *  MANUAL  ADJUSTMENT  OF  STAGE  POSITION  ** 

i ***************************************** 


Choices? (0)="10,000 
Choices? ( 1 ) = “ 1 , 000 
Choices? (2) =“100 
Choices? (3 ) =“ 10 
Choices? (4) ="1 
Distance? (0) =“ 10000 
Distance? (1)="1000" 
Distance? (2 )=" 100- 
Distance?  ( 3 ) =“ 10 " 
Distance? (4) ="1“ 
Num_of_choices=5 
Stage_pos?=“ 0 " 


STEP  MOVEMENT" 
STEP  MOVEMENT* 
STEP  MOVEMENT" 
STEP  MOVEMENT * 
STEP  MOVEMENT' 


**  ALLOW  MONITORING  OF  THE  LOAD  CELLS  ** 
**  AND  DETECTORS  TO  SETUP  THE  EXPERIMENT  ** 
**  ALLOW  ADJUSTMENT  OF  THE  STAGE  POSITION  ** 
******************************************** 


DIM  Message? [50] 


ON 

KEY 

7 

LABEL 

""  GOTO 

1770 

ON 

KEY 

8 

LABEL 

■  -  GOTO 

1770 

ON 

KEY 

1 

LABEL 

"CELL 

1 

FI"  GOTO 

1780 

ON 

KEY 

2 

LABEL 

-CELL 

2 

F2"  GOTO 

1850 

ON 

KEY 

3 

LABEL 

-CELL 

3 

F3“  GOTO 

1920 

ON 

KEY 

4 

LABEL 

■EXIT 

P. 

F4-  GOTO 

1990 

ON 

KEY 

5 

LABEL 

"MEAS 

P. 

F5 "  GOTO 

2060 

ON 

KEY 

6 

LABEL 

-STAGE 

F6 “  GOTO 

2480 

ON 

KEY 

7 

LABEL 

-  PROCEED 

F7-  GOTO 

2510 

CLEAR  SCREEN 
MOVE  10,80 

LABEL  >***************************************" 
LABEL  "**  PRE-EXPERIMENT  SETUP  SECTION  **" 
LABEL  ■**  **" 
LABEL  -**  ADJUST  LOAD  CELLS  AND  DETECTORS  **■ 
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1720  LABEL  "**  *** 

1730  LABEL  "**  CHOOSE  AN  ITEM  USING  THE  SOFTKEYS  **" 

1740  LABEL  "**  OR  CONTINUE  WITH  THE  EXPERIMENT  *** 

1 7 bO  LABEL  "**  BY  PRESSING  'PROCEED*  **" 

1760  LABEL  >***************************************• 

1  7  7  0  GOTO  1 7 7  0 

1/80  Message$  = " *  *  ADJUST  PRISM  1  **" 

1790  CLEAR  SCREEN 

1800  CSIZE  5 

181C  Mult ipl ier=10 
1820  Tail$=“  lbs" 

1830  OUTPUT  ©Voltmeter; "CHAN  0" 

1840  GOTO  2120 

1850  Message$= “ *  *  ADJUST  PRISM  2  **" 

1860  CLEAR  SCREEN 

1870  CSIZE  5 

1880  Multiplier=10 
1890  Tail$=“  lbs" 

1900  OUTPUT  ©Voltmeter; "CHAN  1" 

1910  GOTO  2120 

1920  Message$= " *  *  ADJUST  PRISM  3  **" 

1930  CLEAR  SCREEN 

1940  CSIZE  5 

1950  Mult ipl ier=10 
1960  Tai 1$= "  lbs" 

1970  OUTPUT  ©Voltmeter; "CHAN  2“ 

1980  GOTO  2120 

1990  Message$= “ *  *  EXIT  PRISM  INTENSITY  **" 

2000  CLEAR  SCREEN 
2010  CSIZE  5 
2020  Multipliers 
2030  Tai 1$="  V" 

2040  OUTPUT  ©Voltmeter; "CHAN  3" 

2050  GOTO  2120 

2060  Message$  = " *  *  MEAS  PRISM  INTENSITY  **" 

2070  CLEAR  SCREEN 
2080  CSIZE  5 
2090  Multipliers 
2100  Tail$="  V" 

2110  OUTPUT  ©Voltmeter ; "CHAN  4“ 

2120  MOVE  10,90 

2130  LABEL  "*******************************" 

2140  LABEL  Message$ 

2150  LABEL  ********************************* 

2160  LABEL 

2170  LABEL  "  PRESS  ANY  KEY  TO  CONTINUE" 

2180  LABEL  “AFTER  ADJUSTMENT  OR  MONITORING  " 

2190  ! 

2200  i******************************************************* 

2210  !**  ON  SCREEN  MONITOR  OF  MEASURED  VALUE  FROM  VOLTMETER  ** 

2220  i ******' ************************************************* 

2230  ! 

2240  ON  KBD  GOTO  2380 
2250  MOVE  5,50 

2260  LABEL  "YOUR  CHOSEN  ITEM  HAS  THIS  CURRENT  VALUE:" 

2270  CSIZE  15 

2280  01d_imp_value$Smp_value$ 

2290  ENTER  ©Voltmeter ; Imp_value 
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2300  Imp_value$=VAL$ ( Imp_value*Mul t ipl ier ) &Tai 1$ 

2310  MOVE  5, 30 
2320  PEN  -1 

2330  LABEL  01d_imp_value$ 

2340  MOVE  5,30 
2350  PEN  1 

2360  LABEL  Imp_value$ 

2370  GOTO  2280 
2380  OFF  KBD 
2390  CLEAR  SCREEN 
2400  CSIZE  5 
2410  GOTO  1660 
2420  ! 

2430  •  ****************************************************** 

2440  !**  CALL  SUBROUTINE  THAT  ALLOWS  'MANUAL'  POSITIONING  ** 

2450  !**  OF  THE  WAVEGUIDE  STAGE  ** 

2460  i  ****************************************************** 

2470  ! 

2480  CALL 

Manual (Num_of_choices, Choices $ (*) ,Distance$(*) , ©Daedal , Stage_pos$) 

2490  ! 

2500  GOTO  1660 
2510  OFF  KBD 
2520  OFF  KEY 
2530  CLEAR  SCREEN 
2540  CSIZE  5 
2550  ! 

2560  i ****************************************************** 

2570  !**  CALL  SUBROUTINE  THAT  ALLOWS  'MANUAL'  POSITIONING  ** 

2580  ! *  *  OF  THE  WAVEGUIDE  STAGE  (INITIALIZE  POSITION)  ** 

2590  i****************************************************** 

2600  ! 

2610  CALL 

Manual ( Num_of_cho ices , Choices $ ( * ) , Distance$ ( *) , ©Daedal , Stage_pos$ ) 

2620  ! 

2630  IF  Use_motor=0  THEN  GOTO  3160  !  SKIP  WHEN  NOT  USING  HURST 
2640  ! 

2650  i*********************************************** 

2660  !**  CALL  SUBROUTINE  THAT  ADJUSTS  THE  PRESSURE  ** 

2670  !**  ON  THE  MEASUREMENT  ARM  PRISM  IF  THE  HURST  ** 

2680  !**  STEPPER  MOTOR  IS  BEING  USED  ** 

2690  i*********************************************** 

2700  ! 

2710  Num_of_choices=4 
2720  Choices$ (0) =* 1000  STEPS- 
2730  Choices$ ( 1 ) =" 100  STEPS- 
2740  Choices$ (2) ="10  STEPS- 
2750  Choices$ { 3 ) = " 1  STEP" 

2760  Steps$(0)=*1000" 

2770  Steps$ ( 1 ) =" 100 " 

2780  Steps$ (2) ="10" 

2790  StepsS ( 3 ) = " 1 " 

2800  Total_steps=0 
2810  ! 

2820  CALL 

Hurst (Num_of_choices, Choices$ ( * ) , Steps $ ( * ) , ©Multi , ©Voltmeter, Ini tial_steps, 
Pressure2 ) 

2830  ! 
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2840 

2880 

2860 

2870 

2880 

2890 

2900 

2910 

2920 

2930 

2940 

2950 

2960 

2970 

2980 

2990 

3000 

3010 

3020 

3030 

3040 

3050 

3060 

3070 

3080 

3090 

3100 

3110 

3120 

3130 

3140 

3150 

3160 

3170 

3180 

3190 

3200 

3210 

3220 

3230 

3240 

3250 

3260 

3270 

3280 

3290 

3300 

3310 

3320 

3330 

3340 

3350 

3360 

3370 

3380 

3390 

3400 

3410 


I  a********************************************** 

!**  SET  THE  TARGET  PRESSURE  FOR  THE  AUTOMATED  ** 
! *  *  MEASUREMENTS  ** 

i *********************************************** 

; 

Targe t_press=Pressure2 

J 

I  ********************************************* 

! *  *  REDUCE  INITIAL  NUMBER  OF  STEPS  SLIGHTLY  ** 
!**  TO  PREVENT  OVER  PRESSURE  ** 

i ********************************************* 


IF  Init ial_steps<50  THEN  GOTO  3160 
IF  Initial_steps>5000  THEN 

Init ial_st eps= Init ial_steps 

ELSE 


END  IF 


Initial_steps=Initial_steps 


-100 

-50 


|  ************************* 

!**  END  OF  MANUAL  SETUP  ** 

)  ************************* 

I 

| ********************** 

!**  BEGIN  EXPERIMENT  ** 

I  ********************** 

J 

| *************************************** 

!**  INITIALIZE  VALUES  FOR  SCROLL  MENU  ** 

!**  EXPERIMENT  SETUP  VALUES  ** 

J  *************************************** 

I 

ChoicesS ( 0 ) ="MOVE  TOWARD  OR  AWAY  FROM  MOTOR?  (T/A) ■ 
ChoicesS ( 1 ) =*TRAVEL  INCREMENT  IN  nun  (.1  -  10)’ 

ChoicesS (2) ="TOTAL  MEAS.  DIST.  IN  mm  (1<D<100)“ 

ChoicesS (3 )="ENTER  THE  FILENAME* 

CnoicesS (4 ) =“EXIT" 

Num_of_choices=5 
Constraints$ (0) ="T, 0, 0,T, A, !" 

Constraints$ ( 1) ="N, 10 , .1,0,0, !" 

Const raints$ (2 ) ="N, 100, 1,0,0, !* 

ConstraintsS (3)=“T,0,0,,,!* 

i 

i ********************************************************* 

!**  CALL  SUBROUTINE  FOR  INPUTING  EXPERIMENT  PARAMETERS  ** 

i********************************************************* 


CALL  Chooser (Num_of_choices, ChoicesS ( * ) , ConstraintsS ( * ) , Value$ ( * ) ) 
CLEAR  SCREEN 
Fi lename$=Value$ ( 3 ) 

I 

|************************************************ 

!**  RESET  POSITION  COUNTER  AND  DISPLAY  TO  ZERO  ** 

i ************************************************ 

i 

OUTPUT  @ Daedal  USING  -#,K-;-X0  DA  • , END 

j 
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3420  ! *  *  CONVERSION  AND  PARAMETER  SETUP  ROUTINES  ** 

3430  ; ********************************************* 

3440  ! 

3450  ;  *********************************************** 

3460  !**  SET  COMMAND  FOR  CONTROLLER  FOR  FORWARD  OR  ** 

3470  ! *  *  REVERSE  TRAVEL  DIRECTION  ** 

3480  i  *********************************************** 

3490  ! 

3500  IF  Value$ (0) =*A*  THEN 

3510  Direction$=* * 

3520  ELSE 

3530  Di rect ion$  =  * -  * 

3540  END  IF 
3550  ! 

3560  i************************************** 

3570  ! *  *  CONVERT  MILLIMETERS  TO  INCHES  ** 

3580  !**  GET  MOTOR  STEPS  PER  INCREMENT  ** 

3590  ;************************************** 

3  600 

3  610  I ncrement=VAL (Values ( 1 ) ) / 2  5 . 4 
3620  Total_dist=VAL (ValueS (2 ) )/25.4 
3630  Inc_step=INT ( Increment/ . 00002 ) 

3640  Step_count=INT (Total_dist/ Increment ) 

3650  ! 

3660  ; **************************************************** 

3670  !**  INFORM  USER  OF  THE  NUMBER  OF  MEASUREMENT  STEPS  ** 

3680  > **************************************************** 

3690  ! 

3700  PRINT  "THE  TOTAL  NUMBER  OF  MEASUREMENT  STEPS  WILL  BE  ";Step_count 

3710  WAIT  2 

3720  CLEAR  SCREEN 

3730  ! 

3740  i ********************************************  * 

3750  ! *  *  DIMENSION  AN  ARRAY  FOR  STORING  HE  DATA  ** 

3760  i********************************************* 

3770  ! 

3780  ALLOCATE  Datums (Step_count-l , 8) 

3790  ! 

3800  ;********************************************** 

3810  ! *  *  INFORM  USER  THAT  MEASUREMENTS  WILL  BEGIN  ** 

3820  i********************************************** 

3830  ! 

3840  MOVE  15,70 

3850  LABEL  ********************************** 

3860  LABEL  *“  MEASUREMENT  WILL  NOW  BEGIN  *** 

3870  LABEL  ********************************** 

3880  WAIT  2 
3890  CLEAR  SCREEN 
3900  ! 

3910  i************************************************** 

3920  !**  GENERATE  COMMAND  STRING  FOR  TRAVEL  DIRECTION  ** 

3930  !**  AND  INCREMENTAL  DISTANCE  STEP.  THIS  MOVE  IS  ** 

3940  ! *  *  EXECUTED  IN  THE  UPCOMING  FOR/NEXT  LOOP  ** 

3950  ; ************************************************** 

3960  ! 

3970  Command$  =  "D*&Direction$ScVAL$  ( Inc_step) " 

3980  ! 

3990  !********************************************** 
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4000 

4010 

4020 

4030 

4040 

4050 

4060 

4070 

4080 

4090 

4100 

4110 

4120 

4130 

4140 

4150 

4160 

4170 

4180 

4190 

4200 

4210 

4220 

4230 

4240 

4250 

4260 

4270 

4280 

4290 

4300 

4310 

4320 

4330 

4340 

4350 

4360 

4370 

4380 

4390 

4400 

4410 

4420 

4430 

4440 

4450 

4460 

4470 

4480 

4490 

4500 

4510 

4520 

4530 

4540 

4550 

4560 

4570 


!**  THIS  SENDS  THE  COMMAND  TO  THE  CONTROLLER  ** 
!**  NO  ACTUAL  MOVE  IS  DONE  YET  THOUGH  ** 

i********************************************** 

i 

OUTPUT  ODaedal  USING  ‘ # , K ■ ; Commands , END 

i 

i************************************************ 

!**  INITIALIZE  STAGE  POSITION  VARIABLE  TO  ZERO  ** 

i************************************************ 


Posit ion=0 


**  MOVE/MEASUREMENT  FOR/NEXT  LOOP  ** 

************************************ 


FOR  1=0  TO  Step_count-l 

IF  Out_of_plane=l  THEN  GOTO  4690  !  SKIP  FOR  OUT  OF  PLANE 
IF  Use_motor=l  THEN  GOTO  4540  !  SKIP  WHEN  USING  HURST  MOTOR 

i 

MOVE  15,70 

LABEL  ********************************* 

LABEL  "**  TIGHTEN  MEASUREMENT  PRISM  *** 

LABEL  ********************************* 

LABEL 

LABEL  "PRESS  ANY  KEY  TO  CONTINUE  AFTER" 

LABEL  "AFTER  PRISM  PRESSURE  STABILIZES* 

i 

i  *************  **************************************** 

!**  ON  SCREEN  MONITOR  OF  MEASUREMENT  PRISM  PRESSURE  ** 

i***************************************************** 

i 

ON  KBD  GOTO  447 V 

OUTPUT  OVoltmeter; "CHAN  1" 

CSIZE  15 

Old_pressure2=Pressure2 

01d_pressure2$=VAL$ (01d_pressure2 ) &*  lbs* 

ENTER  SVoltmeter ; Pressure2 

Pressure2=10*Pressure2 

Pressure2  $=VAL$ ( Pressure2 ) &  *  lbs " 

PEN  -1 
MOVE  5,30 

LABEL  01d_pressure2$ 

PEN  1 

MOVE  5,30 

LABEL  Pressure2$ 

GOTO  4350 
OFF  KBD 
GOTO  4690 


************************************* 

**  STEPPER  MOTOR  ROUTINE  GOES  HERE  ** 
************************************* 


Total_steps=Init ial_steps 
OUTPUT  OVoltmeter; "CHAN  1" 

OUTPUT  @Mul t i ; "WF, 8 . 1 , 0 , 8 . 2 , 5000T, OP, 8, "&VALS ( Initial_steps ) & "T* 
WAIT  . 005*Init\al_steps  !  WAIT  UNTIL  FINISHED 
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4580  ENTER  ©Vol tmeter ; Pressure2  !GET  NEW  PRESSURE 
4590  ! 

4600  IF  Pt essure2>Target_press  THEN 
4610  GOTO  4690 

4620  ELSE 

4630  OUTPUT  ©Mul t i ; "WF, 8 . 1 , 0 , 8 . 2 , 5000T, OP, 8 , 10T* 

4640  WAIT  .05  !  WAIT  UNTIL  FINISHED 
4650  Total_steps=Total_steps+10 
4660  GOTO  4580 
4670  END  IF 
4680  ! 

4690  CSIZE  5 
4700  CLEAR  SCREEN 
4710  ! 

4720  j  *********************** 

1730  ! *  *  TAKE  MEASUREMENTS  ** 

4740  I*********************** 

4750  ! 

4760  OUTPUT  ©Vol tmeter ; “CHAN  3“ 

4770  PRINT  “Reading  Exit  Prism  Intensity...* 

4780  ENTER  ©Vcltmetei ; Exit_pi ism 

4790  DISP  "EXIT  PRISM  READING  WAS  “;Exit_prism 

4800  WAIT  1 

4810  OUTPUT  ©Voltmeter; “CHAN  4“ 

4820  PRINT  "  Reading  Measurement  Prism  Intensity...* 

4830  ENTER  ©Voltmeter ;Meas_prism 

4840  DISP  "MEASUREMENT  PRISM  READING  WAS  *;Meas_prism 
4850  WAIT  1 

4860  OUTPUT  ©Voltmeter ; "CHAN  0" 

4870  PRINT  "  Reading  Load  Cell  1  Pressure...* 

4880  ENTER  @Vol tmeter ; Pressurel 

4890  DISP  “LOAD  CELL  1  READING  WAS  *; Pressurel 

4900  WAIT  1 

4910  ! 

4920  IF  Out_of_plane=l  THEN  GOTO  4990  !  SKIP  FOR  OUT  OF  PLANE 
4930  '. 

4940  OUTPUT  ©Voltmeter ; "CHAN  1" 

4950  PRINT  "  Reading  Load  Cell  2  Pressure...* 

4960  ENTER  ©Voltmeter ; Pressure2 

4970  DISP  "LOAD  CELL  2  READING  WAS  *;Pressure2 

4980  WAIT  1 

4990  OUTPUT  ©Voltmeter ; *CHAN  2* 

5000  PRINT  “  Reading  Load  Cell  3  Pressure...* 

5010  ENTER  ©Voltmeter ; Pressure3 

5020  DISP  "LOAD  CELL  3  READING  WAS  * ; Pressure3 

5030  WAIT  1 

5040  Datumsd,  0 )  =ABS  ( Posit  ion*  .  00002*25. 4)  !  STAGE  POSITION 

5050  Datumsd,  1 )  =Exit_prism!  EXIT  PRISM 

5060  Datums (I, 2 ) =Meas_prism!  MEAS  PRISM 

5070  Datums (I , 3 ) =10*Pressurel !  LDCELL1 

5080  Datums (I , 4 ) =10*Pressure2 !  LDCELL2 

5090  Datums (I, 5} =10*Pressure3 !  LDCELL3 

5100  CLEAR  SCREEN 

5110  PRINT  "THE  LAST  MEASUREMENT  POSITION  WAS  *; Datums (I , 0 ); * 
5120  ! 

5130  i************************************** 

5140  ! *  *  END  OF  TAKE  MEASUREMENTS  SECTION  ** 

5150  |************************************** 


mm* 
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5160 

5170 

5180 

5190 

5200 

5210 

5220 

5230 

5240 

5250 

5260 

5270 

5280 

5290 

5300 

5310 

5320 

5330 

5340 

5350 

5360 

5370 

5380 

5390 

5400 

5410 

5420 

5430 

5440 

5450 

5460 

5470 

5480 

5490 

5500 

5510 

5520 

5530 

5540 

5550 

5560 

5570 

5580 

5590 

5600 

5610 

5620 

5630 

5640 

5650 

5660 

5670 

5680 

5690 

5700 

5710 

5720 

5730 


i 

IF  Out_of_plane=l  THEN  GOTO  5720  !  SKIP  FOR  OUT  OF  PLANE 
IF  Use_motor=l  THEN  GOTO  5690  !  SKIP  WHEN  USING  HURST  MOTOR 
PEN  1 

MOVE  15,70 

LABEL  ********************************* 

LABEL  “**  LOOSEN  MEASUREMENT  PRISM  *** 

LABEL  ********************************* 

LABEL 

LABEL  “PRESS  ANY  KEY  TO  CONTINUE  AFTER" 

LABEL  "THE  PRISM  IS  OFF  THE  SAMPLE" 

i 

i  if**************************************************** 

!**  ON  SCREEN  MONITOR  OF  MEASUREMENT  PRISM  PRESSURE  ** 

i***************************************************** 

i 

ON  KBD  GOTO  5530 

OUTPUT  ^Voltmeter; “CHAN  1* 

CSIZE  15 

01d_no_press=No_press 

01d_no_press$=VAL$ (Old_no_press ) & ■  lbs " 

ENTER  @Voltmeter ; No_press 
No_press=10*No_press 
No_press$=VAL$ (No_press) &“  lbs" 

PEN  -1 
MOVE  5,30 

LABEL  Old_no_press$ 

PEN  1 
MOVE  5,30 
LABEL  No_press$ 

GOTO  5350 

I 

J  **★**★★**★******★★*★**★★******★★★*★*** 

! *  *  NO  MOVEMENT  ALLOWED  UNTIL  PRISM  ** 

'.**  IS  OFF  OF  THE  SAMPLE  ** 

|  ***★*■*★★*★*******★★★★★*★*★★***★★★***★* 

I 

IF  No_press>.08  THEN 
PEN  -1 
MOVE  5,30 

LABEL  Old_no_press$ 

GOTO  5350 
END  IF 
OFF  KBD 
PEN  -1 
MOVE  5,30 
LABEL  No_press$ 

GOTO  5720 

i ************************************ 

!**  RAISE  HURST  MOTOR  ROUTINE  HERE  ** 

I  ★*★★★**★★*•**★*■*■■**★★★★**★★*★'*★★★★'★★*★ 

I 

OUTPUT  @Mu 1 t i ; "WF, 8 . 1 , 0 , 8 . 2 , 5000T.OP, 8, - "&VAL$ (Total_steps ) & "T" 
WAIT  . 005*Total_steps 

i 

PEN  1 
CSIZE  5 
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5740  CLEAR  SCREEN 
5750  ! 

5760  i***************************************** 

5770  ! *  *  REAL  EXIT  PRISM  QUIESCENT  INTENSITY  ** 

57  80  |  *«..«*.»*****..**..*...*.**. ************* 

5790  ! 

5800  OUTPUT  GVoltme ter; “CHAN  3“ 

5810  ENTER  ^Voltmeter ; Exit_prism 

5820  Datums U, 6) -Exit _prism!  EXIT  PRISM  QUIESCENT 
5830  ! 

5840  i********************************************* 

5850  !**  CALCULATE  ( P3o* P2 ) / ( P3o- P3 )  AND  ITS  LOG  ** 

5860  i  ********************************************* 

5870  ! 

5880  Datums ( I , 7 ) = ( (Datums (1,6) *Datums (1,2))/ (Datums (1,6) -Datums (1,1))) 
5890  ON  ERROR  GOTO  5920  !CAN‘T  TAKE  LOG  OF  NEG  NUMBER 
5900  Datums (1,8) =LGT ( Datums (1,7) ) 

5910  GOTO  5930 
5920  Datums ( I , 8 ) -0 
5930  OFF  ERROR 
5940  ! 

5950  i******************************** 

5960  !**  PREVENTS  LAST  MOVE  COMMAND  ** 

5970  |******************************** 

5980  ! 

5990  IF  I=Step_count-l  THEN  GOTO  6210 

6000  OUTPUT  @Daeda  1  USING  "#,K*;'G  “  ,  END !  *  *  MOVE  COMMAND  ** 

6010  ! 

6020  ; ********************************* 

6030  ! *  *  WAIT  UNTIL  MOVE  IS  COMPLETE  ** 

6040  \ ********************************* 

6050  ! 

6060  IF  SPOLL ( @ Daedal ) =1  THEN  GOTO  6140 
6070  GOTO  6060 
6080  ! 

6090  |*************************************** 

6100  !**  REQUEST  AND  RECEIVE  POSITION  INFO  ** 

6110  ! *  *  FROM  THE  STAGE  CONTROLLER  ** 

6120  i  *************************************** 

6130  ! 

6140  OUTPUT  @ Daedal  USING  "#,K";"X1  * , END 
6150  Test=SPOLL (@Daedal ) 

6160  IF  Test>8  THEN  GOTO  6180  .'GET  FROM  CONTROLLER? 

6170  GOTO  6150 
6180  WAIT  .5 

6190  ENTER  @ Daedal ; Position$ ! RECEIVE  POSITION 
6200  Position=VAL( Positions) 

6210  NEXT  I 
6220  ! 

6230  I****************************.********* 

6240  !**  END  OF  ACQUISITION  FOR/NEXT  LOOP  ** 

6250  ! ************************************** 

6260  ! 

6270  CLEAR  SCREEN 
6280  ! 

6290  i************************************* 

6300  !**  DISABLE  IEEE-488  FOR  CONTROLLER  ** 

6310  ! ************************************* 
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6320  ! 

6330  OUTPUT  @Daedal  USING  •».K‘;,F  * , END 
6340  ! 

6350  .********************************************* 

6360  ! *  *  CONVERT  AND  STORE  DATA  ON  THE  HARD  DISK  ** 

6370  i********************************************* 

6380  ! 

6390  CALL  Data_converter (Datums (*), Fi lename$ ) 

6400  ! 

S/im  !**********»************** 


6440 

6450 

6460 

6470 

6480 

6490 

6500 

6510 

6520 

6530 

6540 

6550 

6560 

Manual 


**  END  OF  DATA  STORAGE  ** 


%%%%%%%%%%%%%%%%%%%% 
%%  END  OF  PROGRAM  %% 
%%%%%%%%%%%%%%%%%%%% 


%%%%%%%%%%%%%%%%%%%%%%% 
%%  BEGIN  SUBROUTINES  %% 
%%%%%%%%%%%%%%%%%%%%%%% 


(Num_of_choices, Choices? ( * )  , Distance? ( *) , @Daedal , Stage_pos$) 

★  ★**★*★*★*★**■***■*★*■**★★★★■**•*★****★■***■■***■*•*★**★■****■**■*******'* 

**  THIS  SUBROUTINE  ALLOWS  MENU-LIKE  CONTROL  OF  THE  DAEDAL  ** 
**  MOTION  CONTROLLER  AND  THE  RAIL  TABLE.  IT  IS  USED  TO  ** 
**  ’MANUALLY’  POSITION  THE  RAIL  TABLE  BEFORE  BEGINNING  ** 

**  THE  EXPERIMENT  ** 

****★*★****★■*•★★  ★  I********#***************-******************* 

**  VARIABLE  DESCRIPTIONS:  ** 

*  *  *  * 

**  Num_o f_choices  -  THIS  IS  THE  TOTAL  NUMBER  OF  ITEMS  ** 
**  LISTED  IN  THE  MENU  ON  THE  SCREEN  ** 


**  Choices? (*)  - 


**  Distance?(*) 


THIS  IS  A  SERIES  OF  STRINGS  CONTAINING  ** 
THE  TEXT  ASKING  FOR  INPUT  INFORMATION  ** 

e.g.  *10,000  STEP  MOVEMENT"  ** 

OPTION  BASE  0  MUST  BE  USED  e.g.  WHEN  ** 
Num_of_choices=3  then  Choices? (*)  MUST  ** 

BE  NUMBERED  Choices? ( 0 ),  Choices? ( 1 ), AND  ** 
Choices?{2)  ** 

** 

-  THIS  SET  OF  STRINGS  CONTAINS  THE  ** 

NUMBER  OF  STEPS  THAT  WILL  BE  MOVED  ** 

WHEN  THE  LEFT  OR  RIGHT  ARROW  KEY  IS  ** 
PRESSED  ** 


**  @ DAEDAL  -  THIS  IS  THE  HPIB  ADDRESS  OF  THE  MOTION 
**  CONTROLLER.  THIS  IS  ASSIGNED  AT  THE 

**  BEGINNING  OF  THE  PROGRAM 

★  ★ 

**  Stage_pos?  -  THIS  IS  THE  CURRENT  POSITION  OF  THE 
**  STAGE.  WHEN  THIS  PROGRAM  IS  STARTED 
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**  THE  CURRENT  POSITION  OF  THE  STAGE  IS 

**  TAKEN  AS  ZERO.  THIS  VARIABLE  WILL  GIVE 

**  THE  USER  THE  RELATIVE  POSITION  SINCE 

**  BEGINNING  THE  PROGRAM 

★  * 

*********************************************************** 

★*****»************************************************* 

**  THE  NEXT  4  LINES  CLEAR  THE  SCREEN, SET  THE  STARTING  ** 

**  POINT  FOR  LABELS, SET  THE  PEN  TO  WRITE  AND  SET  THE  ** 

**  CHARACTER  SIZE  ** 

******************************************************** 

7020  CLEAR  SCREEN 
7  03  0  PEN'  1 
7040  CSIZE  4, .5 
7050  ! 

7060  i *.**•..«*.****.*.*•*..***•**.*.***.***********•******** 

7070  ! *  *  THIS  LINE  MAKES  THE  CHOOSING  CURSOR  A  WHITE  BLOCK  ** 

7080  I******************************************************* 

7090  ! 

7100  Cur  sor$=CHR$ ( 127 ) 

7110  ! 

7120  ! ****************************************************** 

7130  ! *  *  THE  FOR  NEXT  LOOP  PUTS  THE  CHOICES  ON  THE  SCREEN  ** 

7140  i****************************************************** 

7150  ! 

7160  FOR  1=0  TO  Num_o£_choices-l 
7170  MOVE  10,95-5*1 
7180  LABEL  Choices$(I) 

7190  NEXT  I 
7200  ! 

7210  j ************************************************************** 

7220  !**  THE  NEXT  3  LINES  PLACES  THE  CURSOR  BESIDE  THE  1st  CHOICE  ** 

7230  | ************************************************************** 

7240  ! 

7250  MOVE  5,95 
7260  1=0 

7270  LABEL  CursorS 
7280  ! 

7290  i. **************************************************************** 
7300  !**  THE  NEXT  TWO  LINES  PRINTS  THE  CURRENT  POSITION  OF  THE  STAGE  ** 

7310  I***************************************************************** 

7320  ! 

7330  MOVE  10,20 

7340  LABEL  "THE  CURRENT  POSITION  IS  ";Stage_pos$ 

7350  ! 

7360  I******************************************************************** 

7370  !**  THE  NEXT  4  LINES  PRINTS  AN  OPERATING  INSTRUCTION  ON  THE  SCREEN  ** 

7380  I******************************************************************** 

7390  ! 

7400  MOVE  10,30 

7410  LABEL  "PRESS  RETURN  WHEN  MANUAL  ADJUSTMENT  IS  COMPLETE" 

7420  MOVE  10,35 

7430  LABEL  "USE  LEFT/ RIGHT  ARROWS  TO  MOVE  MOTOR" 

7440  MOVE  10,40 

7450  LABEL  "USE  UP/DOWN  ARROWS  TO  SCROLL  MENU" 

7460  ! 


6900 
6910 
6920 
6930 
6940 
6950 
6960 
697  0 
6980 
6990 
7000 
7  010 
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7470 

7480 

7490 

7500 

^510 

7520 

7530 

7540 

7550 

7560 

7570 

7580 

7590 

7600 

7610 

7620 

7630 

7640 

7650 

7660 

7670 

7680 

7690 

7700 

7710 

7720 

7730 

7740 

7750 

7760 

7770 

7780 

7790 

7800 

7810 

7820 

7830 

7840 

7850 

7860 

7870 

7880 

7890 

7900 

7910 

7920 

7930 

7940 

7950 

7960 

7970 

7980 

7990 

8000 

8010 

8020 

8030 

8040 


******************************************************** 

**  WHEN  A  KEY  IS  STRUCK  GO  TO  THE  MOVE  CURSOR  ROUTINE  ** 

******************************************************** 


Diddle_loop:  ON  KBD  GOTO  Movement 

GOTO  7520 


'ft************************* 

**  MOVE  CURSOR  ROUTINE  ** 


*********•*■**■*★**★*★*■****★■****■****★****★***★***★*★★****** 

**  THIS  ROUTINE  ONLY  TAKES  ACTION  WHEN  THE  UP, DOWN  OR  ** 
**  RETURN  KEY  IS  PRESSED.  GO  TO  Up  ON  UP  KEY,  GO  TO  ** 
**  Down  ON  DOWN  KEY,  GO  TO  Take_data  ON  RETURN  ** 

★  ****★********★★***★*★★*★★*★★★★★★★★*★★★**■*★*★*****■***★*★ 


Movement :  ! 

Where$=KBD$ 

OFF  KBD 

IF  Where$=CHR$ ( 255 ) & " A “ 
IF  Where $=CHR$ ( 255 ) &  * V“ 
IF  Where $=CHR$ { 255 } & •<“ 
IF  Where$=CHR$ { 255 ) & “ >■ 
IF  Where$=CHR$ { 255 } & “ E" 
GOTO  Diddle_loop 


THEN  Up 
THEN  Down 

THEN  Move_stage_lft 
THEN  Move_stage_rgt 
THEN  Finished 


*★***■*★★★*★*★**★★**★★★*★*★*★*★*★*★ 
**  END  OF  MOVE  CURSOR  ROUTINE  ** 


*★■***■*•**★**★★★**■*■*■**■***★**★ 
**  UP  MOVEMENT  ROUTINE  ** 

***t**t******************** 


**  THIS  SCROLLS  THE  CURSOR  UP  ** 


Up:  ! 

PEN  -1 

MOVE  5,95-5*1 
LABEL  Cursor$ 

IF  1=0  THEN 

I=Num_of_choices-l 

ELSE 

1  =  1-1 

END  IP 
PEN  1 

MOVE  5,95-5*1 
LABEL  Cursor$ 

GOTO  Diddle_loop 
* 

l  **★****★*★*♦★★★•*★*★*♦♦★**'*★******♦ 

!**  END  OF  UP  MOVEMENT  ROUTINE  ** 
|********************************** 
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8050 
8060 
807  0 
3080 
8090 
8100 
8110 
8120 
8130 
8140 
8150 
8160 
8170 
8180 
8190 
8200 
8210 
8220 
82  3  0 
8240 
8250 
8260 
8270 
8280 
8290 
8300 
8310 
8320 
8330 
8340 
8350 
8360 
8370 
8380 
8390 
8400 
8410 
8420 
8430 
8440 
8450 
8460 
8470 
8480 
8490 
8500 
8510 
8520 
8530 
8540 
8550 
8560 
8570 
8580 
8590 
8600 
8610 
8620 


LX)WN  MOVEMENT  ROUTINE  ** 

************************** 


I********************************** 

! *  *  THIS  SCROLLS  THE  CURSOR  DOWN  ** 

|  ********************************** 

I 

Down  :  ! 

PEN  -1 

MOVE  5,95-5*1 
LABEL  Cursor? 

IF  I=Num_of_choices-l  THEN 

1=0 

ELSE 

1  =  1  +  1 

END  IF 
PEN  1 

MOVE  5,95-5*1 
LABEL  Cursor$ 

GOTO  Diddle_loop 


************************************ 

**  END  OF  DOWN  MOVEMENT  ROUTINE  ** 
************************************ 


*********************************** 

**  BEGIN  STAGE  MOVEMENT  ROUTINES  ** 

*********************************** 


***********+*+************★************************* 

**  THIS  SUBROUTINE  MOVES  THE  RAIL  TABLE  STAGE  TO  ** 
**  THE  LEFT  (TOWARD  THE  STEPPER  MOTOR)  THE  NUMBER  ** 
**  OF  STEPS  INDICATED  BY  Distances ( I ) .  THE  ** 
**  COMPUTER  THEN  POLLS  THE  MOTION  CONTROLLER  TO  ** 
**  DETERMINE  WHEN  THE  MOVE  HAS  BEEN  COMPLETED.  ** 
**  AFTER  THE  MOVE  IS  COMPLETE  THE  ** 
**  COMPUTER  REQUESTS  THE  CURRENT  RELATIVE  ** 
**  POSITION  OF  THE  STAGE  AND  PRINTS  IT  ON  THE  ** 
**  SCREEN  ** 
**************************************************** 


Move_st._lgc_l  f  t  :  ! 


***************************************************************** 
**  THE  OUTPUT  STATEMENT  PERFORMS  THE  FOLLOWING:  *tt,K'IN  USING  ** 
**  SUPPRESSES  EOL  AT  THE  END  OF  THE  COMMAND  AND  STRIPS  BLANKS  ** 
**  FROM  ANY  CHARACTERS,  THE  CHARACTER  STRING  SENT  IS  ** 

**  ' D-XXXXXXX  G  '  WHERE  XXXXXXX  IS  A  NUMBER.  THE  1 , END  *  IS  ** 

**  USED  TO  SUPPRESS  EOL  WHEN  THERE  IS  NO  DATA  SENT  AND  TO  SEND  ** 
**  THE  END-OR- IDENTIFY  WHEN  A  COMMAND  IS  SENT.  SEE  PAGE  450  ** 

**  OF  THE  BASIC  5. 0/5.1  LANGUAGE  REFERENCE  VOL.  2:0-Z  FOR  AN  ** 
**  EQUALLY  USELESS  EXPLAINATION .  THIS  IS  ALL  DUE  ** 

**  TO  DAEDAL'S  PISS-POOR  IMPLEMENTATION  OF  THE  GPIB  COMMAND  ** 
*  *  SET  *  * 

-ft**************************************************************** 

OUTPUT  @Daeda 1  USING  " # , K* ; "D- "& Distances ( I ) & "  G  * , END 
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8630 
8610 
8660 
8660 
86/0 
8680 
8690 
8/00 
8  >  id 

3720 
87  3  0 
8  740 
87  60 
8  /  60 

8  /  7  0 
8780 
8/90 
8800 
8810 
8820 
8830 
8840 
8860 
8860 
8870 
8880 
8890 
8900 
8910 
8920 
893  0 
8940 
8960 
8960 
8970 
8980 
8990 

9  000 
9  010 
9020 
9030 
9040 
9060 
9060 
9070 
9080 
9090 
9100 
9110 
9120 
9130 
9140 
9150 
9160 
9170 
9180 
9190 
9200 


> **************************************************************** 

!**  SERIAL  POLL  THE  MOTION  CONTROLLER  TO  DETERMINE  WHEN  STAGE  ** 
!**  MOVEMEf  iS  COMPLETE.  CONTROLLER  WILL  RETURN  A  1  ** 

i  ********* • «***************************************************** 


Move_done=SPOLI.  (@Daeda  1 ) 

IF  Move_done<  > 1  THEN  GOTO  8680 

**************************************************************** 

**  THIS  OUTPUT  STATEMENT  REQUESTS  THE  CURRENT  RELATIVE  ** 

**  POSITION  OK  THE  STAGE  FROM  THE  MOTION  CONTROLLER  ** 

**************************************************************** 


OUTPUT  <3Daedal  USING  ■#,)<*;  *X1  *  ,  END 

***********#*********************.**************************•**4* 

**  SERIAL  POLL  THE  MOTION  CONTROLLER  TO  DETERMINE  WHEN  THE  ** 
**  CURRENT  POSITION  INFORMATION  IS  AVAILABLE  ** 

4444444444444*44444444444444444444444444444444444444444444444444 


Answer_back=SPOLL (@Daeda 1 ) 

IF  An  s we  t  _ba  c  k  <  8  THEN  GOTO  883  0 


A--***********'**************##****#**#*************#************** 


**  CLEAR  THE  OLD  CURRENT  POSITION  FROM  THE  SCREEN  THEN  READ  ** 
**  THE  NEW  CURRENT  POSITION  INFORMATION  AND  PRINT  IT  ON  THE  ** 
**  SCREEN  ** 

Jr*'*'***************'***'***'*#***#****#********'***'*************'#**** 


MOVE  10,20 
PEN  -1 

LABEL  "THE  CURRENT  POSITION  IS  ";Stage_pos$ 
ENTER  @Daeda 1  USING  "K " ; SLage_pos$ 

MOVE  10,20 
PEN  1 

LABEL  "THE  CURRENT  POSITION  IS  " ; Stage_pos$ 
GOTO  DLddle_loop 


**********4********44**4**4****4*444*444444444444444 

**  THIS  SUBROUTINE  MOVES  THE  RAIL  TABLE  STAGE  TO  ** 
**  THE  RIGHT  (AWAY  FROM  THE  STEPPER  MOTOR)  THE  ** 
**  NUMBER  OF  STEPS  INDICATED  BY  Di stanceS ( I ) .  THE  ** 
**  COMPUTER  THEN  POLLS  THE  MOTION  CONTROLLER  TO  ** 
**  DETERMINE  WHEN  THE  MOVE  HAS  BEEN  COMPLETED.  ** 
**  AFTER  THE  MOVE  IS  COMPLETE  THE  ** 

**  COMPUTER  REQUESTS  THE  CURRENT  RELATIVE  ** 

**  POSITION  OF  THE  STAGE  AND  PRINTS  IT  ON  THE  ** 

**  SCREEN  ** 

*********************************************4****** 


Move_stage_rgt :  ! 

j 

1  ******************************************************************* 

!**  THE  OUTPUT  STATEMENT  PERFORMS  THE  FOLLOWING:  ,#,K,IN  USING  ** 
!**  SUPPRESSES  EOL  AT  THE  END  OF  THE  COMMAND  AND  STRIPS  BLANKS  ** 
! *  *  FROM  ANY  CHARACTERS.  THE  CHARACTER  STRING  SENT  IS  ** 

!**  ’ DXXXXXXX  G  •  WHERE  XXXXXXX  IS  A  NUMBER.  THE  ’.END’  IS  ** 

! *  *  USED  TO  SUPPRESS  EOL  WHEN  THERE  IS  NO  DATA  SENT  AND  TO  SEND  ** 
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9210 
92/0 
9230 
9  2  4  0 
92  50 
9  2  6  0 

92  7  0 
9  2  80 
<290 
9  300 
9  3  10 
9  32  0 

93  30 
93  40 
9  3  5  0 
9360 
9  3/0 
9380 
9390 
o4  0  0 
9410 
9420 
9430 
9440 
9  4  b  0 
9460 
947  0 
9  4  80 
9490 
9b<)0 
9  b  1  0 
9b2  0 
9S30 
9S4  0 
9  b  50 
9560 
9570 
9580 
9590 
9600 
9610 
9620 
9630 
9640 
9650 
9660 
9670 
9680 
9690 
9700 
9710 
9720 
9730 
9740 
9750 
9760 
9770 
9780 


**  THK  END-OR- IDENTIFY  WHEN  A  COMMAND  IS  SENT.  SEE  PAGE  450  ** 
**  OF  1'HE  BASIC  5.0/5.  1  LANGUAGE  REFERENCE  VOL.  2:0-Z  FOR  AN  ** 
**  EQUALLY  USELESS  KXPLA 1  NAT  ION .  THIS  IS  ALL  DUE  ** 

**  TO  DAEDAL'S  BISS- DOOR  IMPLEMENTATION  OF  THE  GRIB  COMMAND  *  * 

**  SET  ** 

***************************************************************** 

OUTPUT  ^Daedal  USING  *  *  ,  K‘  ;  •D*£,Distance$  ( I )  £,*  G  *  ,  END 

**************************************************************** 

**  SERIAL  POLL  THE  MOTION  CONTROLLER  TO  DETERMINE  WHEN  STAGE  ** 
**  MOVEMENT  IS  COMPLETE.  CONTROLLER  WILL  RETURN  A  1  ** 

**************************************************************** 


Move_dene=SPOLI.  ( (4Daeda  1  ) 

11'  Move_done<>l  THEN  GOTO  9350 

**************-**********★***********♦******************-********* 

**  THIS  OUTPUT  STATEMENT  REQUESTS  THE  CURRENT  RELATIVE  ** 

**  POSITION  OF  THE  STAGE  FROM  THE  MOTION  CONTROLLER  ** 

OUTPUT  @ Daedal  US  INC  “ #  #  K “ ; "XI  " , END 

**************************************************************** 
**  SERIAL,  POLL  THE  MOTION  CONTROLLER  TO  DETERMINE  WHEN  THE  ** 

**  CURRENT  POSITION  INFORMATION  IS  AVAILABLE  ** 

★  **★★*★***********★♦****★★*★★**★*★★★★★**★**★**★★★★★***♦***★★★★★* 

Answe  r  _back=SPOLL  ( (-Ulaeda  1 ) 

IF  Answer_back<8  THEN  GOTO  9500 

★  ★*****■**★**■*★*★-*★★★★*■****★**★**★★★*■*★*★★■**★★★***★**•**★*★★★■**★★* 

**  CLEAR  THE  OLD  CURRENT  POSITION  FROM  THE  SCREEN  THEN  READ  ** 

**  THE  NEW  CURRENT  POSITION  INFORMATION  AND  PRINT  IT  ON  THE  ** 

**  SCREEN  ** 

**************************************************************** 


MOVE  10,20 
PEN  -1 

LABEL  "THE  CURRENT  POSITION  IS  "  ; Stage_pos$ 

ENTER  @Daedal  USING  "K* ; Stage_pos$ 

MOVE  10,20 
PEN  1 

LABEL  "THE  CURRENT  POSITION  IS  ";Stage_pos$ 

GOTO  Diddle_loop 

1 

|  ★★★★★★♦★★★★★♦♦★★★★★★★★♦★★★★★★♦★it* 

! *  *  END  STAGE  MOVEMENT  ROUTINES  ** 

i ★**★*★*****★★★*★★★***★★*★★★****** 

i 

i  ★**★**★*★★********★***★***★**★*★***■**★***★****★★★★****★**★★★*★** 

! *  *  IF  THE  RETURN  KEY  IS  PRESSED  THE  SUBPROGRAM  TERMINATES  ** 

i **************************************************************** 

i 

Fi n i shed : ! 

SUBEND 
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9790 

9800 

9810 

9820 

9830 

9840 

9850 

9860 

9870 

9880 

9890 

9900 

9910 

9920 

9930 

9940 

9950 

9960 

9979 

9980 
9990 
10000 
10010 
10020 
10030 
10040 
10050 
10060 
10070 
10080 
10090 
10100 
10110 
10120 
10130 
10140 
10150 
10160 
10170 
10180 
10190 
10200 
10210 
10220 
10230 
10240 
10250 
10260 
10270 
10280 
10290 
10300 
10310 
10320 
10330 
10340 
10350 
10360 


SUB  Chooser (Num_of_cho ices, Choices? ( * ) , Constraints? (*) .Value? ( * ) ) 
<*********************************************************** 

!**  THIS  SUBROUTINE  ALLOWS  MENU-LIKE  INPUT  OF  INFORMATION  ** 

i  **-*****★******★*■**★**★*★****■*■*************★**************** 


**  VARIABLE  DESCRIPTIONS:  ** 

*  *  *  * 


**  Num_of_choices 
*  ★ 


THIS  IS  THE  TOTAL  NUMBER  OF  ITEMS 
THAT  WILL  REQUIRE  ENTERED  VALUES 


*  ★ 
*  * 


**  Choices? ( * )  -  THIS  IS  A  SERIES  OF  STRINGS  CONTAINING  ** 
**  THE  TEXT  ASKING  FOR  INPUT  INFORMATION  ** 
**  e.g.  'ENTER  THE  PULSE  WIDTH'  ** 
**  OPTION  BASE  0  MUST  BE  USED  e.g.  WHEN  ** 
**  Num_of_choices=3  then  Choices?!*)  MUST  ** 
**  BE  NUMBERED  Choices? ( 0 ), Choices? ( 1 ), AND  ** 
**  Choices? (2 )  ** 


**  Constraints?!*) 

*  it 
it  it 
k  it 
it  k 
it  it 
k  k 
k  k 


THIS  IS  A  SERIES  OF  STRINGS  THAT  ** 
CONTAIN  TESTING  VALUES  AND  LIMITS  ** 
TO  BE  USED  WHEN  DETERMINING  THE  ** 
VALIDITY  OF  ENTERED  VALUES.  THESE  ** 
STRINGS  ARE  USED  TO  VERIFY  INPUT  ** 
VALUES  AS  NUMBER  OR  TEXT,  WITHIN  ** 
HIGH  AND  LOW  LIMITS  IF  A  NUMBER  ** 
OR  A  LEGAL  RESPONSE  IF  TEXT  ** 


**  Value?!*)  -  THESE  STRINGS  CONTAIN  THE  ENTERED  INFO  ** 
**  THAT  WILL  BE  RETURNED  TO  THE  MAIN  PROGRAM  ** 
*********************************************************** 


i************************************************* 

!**  Erase?  IS  USED  WHEN  CORRECTING  A  MISTAKE  IN  ** 

! *  *  AN  ENTERED  VALUE  *  * 

i************************************************* 

DIM  Erase? 130] 

Erase?=“ " 

i******************************************************* 

! *  *  Temp?  IS  A  TEMPORARY  STORAGE  STRING  THAT  IS  USED  ** 
!**  WHEN  THE  USER  IS  INPUTING  INFORMATION.  WHEN  ** 

! *  *  Temp?  IS  COMPLETED  IT  IS  TRANSFERRED  TO  Value$(I)  ** 

i ******************************************************* 

DIM  Temp? [30] 

Temp?= " " 

i******************************************************** 

! *  *  THE  NEXT  4  LINES  CLEAR  THE  SCREEN, SET  THE  STARTING  ** 
! *  *  POINT  FOR  LABELS, SET  THE  PEN  TO  WRITE  AND  SET  THE  ** 
!**  CHARACTER  SIZE  ** 

i******************************************************** 

CLEAR  SCREEN 
LORG  2 
PEN  1 

CSIZE  4, .5 

i******************************************************* 

!**  THIS  LINE  MAKES  THE  CHOOSING  CURSOR  A  WHITE  BLOCK  ** 

i *******  ************************************************ 

Cursor?=CHR? ( 127 ) 

i****************************************************** 
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10370  ! *  *  THE  FOR  NEXT  LOOP  PUTS  THE  CHOICES  ON  THE  SCREEN  ** 

10380  i*******************************. ********************** 

10390  FOR  1=0  TO  Num_of_choices- 1 
10400  MOVE  10,95-5*1 
10410  LABEL  Choices$(I) 

10420  NEXT  I 
10430  1=0 

10440  IF  Value$ ( I) ="  "  THEN  GOTO  10520 
10450  FOR  1=0  TO  Num_of_choices-2 
10460  MOVE  85,95-5*1 
10470  LABEL  Value$(I) 

10480  NEXT  I 

10490  i************************************************************** 
10500  !**  THE  NEXT  3  LINES  PLACES  THE  CURSOR  BESIDE  THE  1st  CHOICE  ** 
1 05  j.  0  !************************************************************** 

10520  MOVE  5,95 
10530  1=0 

10540  LABEL  Cursor? 

10550  !******************************************************** 

10560  !**  WHEN  A  KEY  IS  STRUCK  GO  TO  THE  MOVE  CURSOR  ROUTINE  ** 

10570  j ******************************************************** 

10580  Diddle_loop :  ON  KBD  GOTO  Movement 
10590  GOTO  10590 

10600  I************************** 

10610  !**  MOVE  CURSOR  ROUTINE  ** 

10620  j  ************************** 

10630  ! 

10640  i******************************************************** 

10650  !**  WHEN  A  KEY  IS  PRESSED,  THIS  ROUTINE  DETERMINES  ** 

10660  !**  IF  THE  KEYSTROKE  WAS  AN  UP  OR  DOWN  ARROW  OR  IF  IT  ** 

10670  !**  WAS  A  CHARACTER  KEY.  THE  ARROWS  MEAN  MOVE  THE  ** 

10680  !**  CURSOR  UP  OR  DOWN  THROUGH  THE  CHIOCES  ON  THE  ** 

10690  !*-*  SCREEN.  A  CHARACTER  KEY  MEANS  THAT  INFO  IS  BEING  ** 

10700  !**  ENTERED.  THE  “DISP  Where$“  PLACES  THE  FIRST  CHAR.  ** 

10710  !**  ON  THE  SCREEN  BEFORE  EXITING  TO  THE  Take_data  ** 

10720  !**  IN  ORDER  TO  MAKE  INPUT  VEIWING  MORE  SMOOTH  ** 

10730  ! ******************************************************** 

10740  Movement:! 


10750 

Where$=KBD$ 

10760 

OFF  KBD 

10770 

IF  Where$=CHR$ ( 255 ) & " ~ " 

THEN 

Up 

10780 

IF  Where$=CHR$ ( 255 ) & "V* 

THEN 

Down 

10790 

IF  LEN (Where$ ) =1  THEN  DISP  Where$ 

10800 

IF  Where$<>" "  THEN 

10810 

GOTO 

Take, 

.data 

10820 

END  IF 

10830  GOTO  Diddle_loop 

10840  i********************************** 
10850  !**  END  OF  MOVE  CURSOR  ROUTINE  ** 

10860  I********************************** 

10870  ! 

10880  ! *************************** 

10890  !**  UP  MOVEMENT  ROUTINE  ** 

10900  i *************************** 

10910  ! 

10920  i******************************** 
10930  !**  THIS  SCROLLS  THE  CURSOR  UP  ** 


10940  ! ******************************** 
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10950 

10960 

10970 

10980 

10990 

11000 

11010 

11020 

11030 

11040 

11050 

11060 

11070 

11080 

11090 

11100 

11110 

11120 

11130 

11140 

11150 

11160 

11170 

11180 

11190 

11200 

11210 

11220 

11230 

11240 

11250 

11260 

11270 

11280 

11290 

11300 

11310 

11320 

11330 

11340 

11350 

11360 

11370 

11380 

11390 

11400 

11410 

11420 

11430 

11440 

11450 

11460 

11470 

11480 

11490 

11500 

11510 

11520 


Up:  ! 

PEN  -1 

MOVE  5,95-5*1 
LABEL  Cursor? 

IF  1=0  THEN 

I=Num_of_choices-l 

ELSE 

1  =  1-1 

END  IF 
PEN  1 

MOVE  5,95-5*1 
LABEL  Cursors 
GOTO  Diddle_loop 

i********************************** 

!**  END  OF  UP  MOVEMENT  ROUTINE  ** 

l********************************** 

I 

|  **★***★★★*★*★*★**★**■*■***■***** 

!**  DOWN  MOVEMENT  ROUTINE  ** 

i ***************************** 


i********************************** 

! *  *  THIS  SCROLLS  THE  CURSOR  DOWN  ** 

i********************************** 

Down : ! 

PEN  -1 

MOVE  5,95-5*1 
LABEL  Cursors 

IF  I=Num_of_choices-l  THEN 

1  =  0 
ELSE 

1  =  1  +  1 

END  IF 
PEN  1 

MOVE  5,95-5*1 
LABEL  CursorS 
GOTO  Diddle_loop 

J  ★■*★*»★★★**★*★★*★*★★★★****■*******★*** 

»**  END  OF  DOWN  MOVEMENT  ROUTINE  ** 

i************************************ 

i 

;************★******★********************** 

!**  TAKE  DATA  ROUTINE  ** 

i  *******★***★★**★**★**★**★*★*★★★★**★*****★* 
i****************************************** 

!**  THIS  LOOP  TAKES  YOUR  ENTRY  FOR  A  ** 

!**  PARTICULAR  PARAMETER  AND  DETERMINES  ** 

!**  IF  IT  IS  VALID  GIVEN  THE  CONSTRAINTS  ** 

!**  SET  FORTH  IN  THE  CONSTRAINTS$  STRING  ** 

i  ★★★*★★-***★**★★★*****★***★*★**★★****★*★*•*★★ 

i  ★*★*****★***★****★*■*********★***★*★***★* 

l **  CHECKS  TO  SEE  IF  “EXIT"  WAS  CHOSEN  ** 

i  **★★★★★★★*•**★★***********■*■*'**■***★★★***■*★ 

Take_data:  IF  I=Nurn_o£_choices-l  THEN 

GOTO  Done 

END  IF 

j********************************************* 
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*  * 


11530 

11540 

11550 

11560 

11570 

11580 

11590 

11600 

11610 

11620 

11630 

11640 

11650 

11660 

11670 

11680 

11690 

11700 

11710 

11720 

11730 

11740 

11750 

11760 

11770 

11780 

11790 

11800 

11810 

11820 

11830 

11840 

11850 

11860 

11870 

11880 

11890 

11900 

11910 

11920 

11930 

11940 

11950 

11960 

11970 

11980 

11990 

12000 

12010 

12020 

12030 

12040 

12050 

12060 

12070 

12080 

12090 

12100 


!**  THE  FIRST  CHARACTER  OF  THE  Temp$  STRING 
!**  IS  TAKEN  FROM  THE  Where$  STRING  SINCE 
!**  THIS  WAS  THE  FIRST  CHARACTER  PRESSED 
!**  OTHER  THAN  AN  UP  OR  DOWN  ARROW  KEY 
! *  *  Where$  IS  THEN  CLEARED 

i ********************************************* 

Temp$=Where$ 

Where$=* “ 

;***************************************************** 

!**  SET  PEN  TO  ERASE, ERASE  CURSOR, SET  PEN  TO  WRITE,  ** 
!**  MOVE  TO  THE  LOCATION  WHERE  THE  VALID  ENTRY  WILL  ** 
!**  BE  DISPLAYED  ** 

j ***************************************************** 

PEN  -1 

LABEL  Cursor$ 

PEN  1 

MOVE  85, 95-5*1 

J  *★★*★★*★★★**★*★*★★★*★★★*★**★**★★★★*★*★*★★***★★★★***★* 

!**  GO  TO  THE  SUBROUTINE  THAT  STRIPS  THE  CONSTRAINT  ** 
!**  PARAMETERS  FROM  THE  PROPER  CONSTRAINTS  STRING  ** 
!**  FOR  THE  CHOSEN  ENTRY  ITEM  ** 

i ***************************************************** 


GOSUB  Extract 

|  *************★****************************************«*  + 

! *  *  UPDATE  THE  ERASE  STRING, GENERATE  AN  ATTENTION  TONE  ** 
! *  *  AND  REQUEST  AN  INPUT  ** 

I**********************************#********#-**********#** 

Erase$=Value$ ( I ) 

ON  KBD  GOTO  Build_string 
GOTO  11820 
Bui ld_string : ! 

Char$=KBD$ 

IF  Char$=CHR$ (255)&“E"  THEN  GOTO  12050 
IF  Char$=CHR$ ( 255) & "B"  THEN 
ON  ERROR  GOTO  11890 
TempS =Temp$ [ 1 , LEN (TempS) -1 ] 

OFF  ERROR 
GOTO  12030 
END  IF 

IF  Char$=CHR$(255)&“'*  THEN 

Temp$=“ " 

DISP  TempS 
GOTO  Up 

END  IF 

IF  Char$=CHR$ (255} & "V"  THEN 

Temp$=" " 

DISP  TempS 
GOTO  Down 

END  IF 

Temp$=Temp$&Char$ 

DISP  TempS 
GOTO  11820 

OFF  KBD 

ValueS ( I ) =Temp$ 

TempS =“ " 

Where$=" 4 

I*****************-************** 

!**  VALID  ENTRY  CHECK  ROUTINE  ** 
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12110 

12120 

12130 

12140 

12150 

12160 

12170 

12180 

12190 

12200 

12210 

12220 

12230 

12240 

12250 

12260 

12270 

12280 

12290 

12300 

12310 

12320 

12330 

12340 

12350 

12360 

12370 

12380 

12390 

12400 

12410 

12420 

12430 

12440 

12450 

12460 

12470 

12480 

12490 

12500 

12510 

12520 

12530 

12540 

12550 

12560 

12570 

12580 

12590 

12600 

12610 

12620 

12630 

12640 

12650 

12660 

12670 

12680 


I  ******************************* 


I  ********************************************* 


!  *  *  IF  THE  ENTRY  IS  SUPPOSED  TO  BE  A  NUMBER  ** 

! *  *  CHECK  TO  SEE  THAT  IT  IS  AND  STRIP  OFF  ** 

! *  *  TRAILING  TEXT.  THEN  TEST  TO  SEE  IF  THE  ** 

! *  *  NUMBER  IS  BETWEEN  THE  SPECIFIED  HIGH  ** 

!**  AND  LOW  VALUES.  IF  ANY  OF  THESE  ** 

! *  *  CONDITIONS  ARE  NOT  MET  THEN  REJECT  ** 

i ********************************************* 

IF  N_t$=“N“  THEN 

ON  ERROR  GOTO  12490 
Number=VAL(Value$  ( I ) ) 

OFF  ERROR 

ValueS ( I ) =VAL$ (Number) 

IF  Number>VAL(High$)  THEN 

ValueS ( I ) =Erase$ 
GOTO  12490 


END  IF 

IF  Number<VAL ( Low$ )  THEN 


ValueS ( I ) =Erase$ 
GOTO  12490 


END  IF 
ELSE 


**************************************************** 

**  IF  THE  ENTRY  IS  SUPPOSED  TO  BE  TEXT  THEN  CHECK  ** 
**  TO  SEE  THAT  IT  IS  ONE  OF  THE  VALID  RESPONSES  ** 
**  IF  NOT  THEN  REJECT  ** 

**************************************************** 


IF  Textl$<>“ *  THEN  GOTO  12430 
IF  Text2$<>*  *  THEN  GOTO  12430 
GOTO  12610 

IF  ValueS (I)=Textl$  THEN  GOTO  12610 
IF  ValueS (I)=Text2$  THEN  GOTO  12610 
ValueS ( I ) =Erase$ 


GOTO  12490 


END  IF 
GOTO  12610 
BEEP  83.1, .2 
Temp$=" " 

DISP  TempS 
GOTO  11810 

!**  END  ENTRY  CHECK  ROUTINE  ** 

i ★****★**★★★★★★*★★★★*★★*★*★★★★*★ 


i  *****★**★★★★★*★**★********★**★**★★**★■**★★*★*★★*★★**** 

I**  IF  THE  entry  WAS  VALID  THEN  ERASE  THE  OLD  VALUE  ** 
!**  AND  REPLACE  IT  WITH  THE  NEW  VALUE  ** 

|  ★**★*★★***★**■******★★****★•*****★*****************'***•* 

PEN  -1 

LABEL  EraseS 
PEN  1 

MOVE  85,95-5*1 
LABEL  ValueS (I) 

GOTO  Diddle_loop 
| ****************************** 


!**  END  OF  TAKE  DATA  ROUTINE  ** 
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12690 

12700 

12710 

12720 

12730 

12740 

12750 

12760 

12770 

12780 

12790 

12800 

12810 

12820 

12830 

12840 

12850 

12860 

12870 

12880 

12890 

12900 

12910 

12920 

12930 

12940 

12950 

12960 

12970 

12980 

12990 

13000 

13010 

13020 

13030 

13040 

13050 

13060 

13070 

13080 

13090 

13100 

13110 

13120 

13130 

13140 

13150 

13160 

13170 

13180 

13190 

13200 

13210 

13220 

13230 

13240 

13250 

13260 


|  ****************************** 

I 

I  ******************************** 

!**  EXIT  ROUTINE  BEGINS  HERE  ** 

j ******************************** 

Done :  ! 

i  ************************  ************************ 

)**  ERASE  THE  CURSOR  FROM  ITS  PRESENT  LOCATION  ** 

I************************************************ 

MOVE  5,95-5*1 
PEN  -1 

LABEL  Cursor$ 

PEN  1 

j********************************************** 

!**  THIS  FOR  NEXT  LOOP  TESTS  FOR  ANY  MISSING  ** 
!**  ENTRIES.  IF  ANY  ARE  FOUND  THEN  THE  EXIT  ** 

! *  *  IS  IGNORED  UNTIL  ALL  ASKED  FOR  VALUES  ** 
!**  ARE  ENTERED  ** 

i********************************************** 

OFF  KBD 

FOR  K=0  TO  Num_of_choices-2 
IF  Value$ (K) "  THEN 

MOVE  5, 95-5*K 
LABEL  Cursors 
I=K 

Where$=*  * 

GOTO  11490 

END  IF 
NEXT  K 

CLEAR  SCREEN 

i *************************** 

!**  END  OF  EXIT  ROUTINE  ** 

I ****★**★***★*★★*****★★**★*★ 

I************************************************ 

.**  IF  THIS  poiNT  IS  REACHED  THEN  THE  SUBPROGRAM 
!**  IS  EXITED 

i************************************************ 

GOTO  13620 

I ***★★***★**★★★*★**★★★**★**★★★★★***★*★*★*★★**★★★★ 

!**  STRING  EXTRACTION  SUB-ROUTINE  ** 

i************************************************ 

!**  THIS  ROUTINE  EXTRACTS  THE  INFORMATION  ** 

!**  FROM  THE  CONSTRAINTSS  STRING  AND  PLACES  ** 
!**  IT  in  A  SERIES  OF  STRINGS  THAT  CAN  BE  USED  ** 
i**  TO  TEST  THE  ENTERED  VALUES  STRING  TO  SEE  ** 
!**  IF  IT  IS  VALID  ** 

i  ***•  -  it--***************************************** 

Extract :  ! 

N_t$= " " 

High$=" * 

Low$=" " 

Textl$=" “ 

Text2$=“ " 

T$="  * 

P=1 
K$=*  “ 

T$=Constraints$ ( I) [P,P] 

IF  T$= " , "  THEN  GOTO  Next_string 


*  * 
*  * 
*  * 
★  * 
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13270  IF  T$=* ! “  THEN  GOTO  Finish 
13280  K$=K$&T$ 

13290  P=P+1 
13300  GOTO  13250 
13310  Next_str ing : ! 

13320  IF  N_t $  =  "  “  THEN 
13330  N_t$=K$ 

13340  P=P+1 

13350  GOTO  13240 

13360  END  IF 
13370  IF  High$=* “  THEN 
13380  High$=K$ 

13390  P=P+1 

13400  GOTO  13240 

13410  END  IF 


13420  IF  Low$= “ " 

13430 

13440 

13450 

13460  END  IF 

13470  IF  Textl$= 

13480 

13490 

13500 

13510  END  IF 


THEN 

Low$=K$ 

P=P+1 

GOTO  13240 

"  THEN 

Text  1 $=K$ 
P=P+1 

GOTO  13240 


13520  IF  Text2$=" "  THEN 
13530  Text2$=K$ 

13540  P=P+1 

13550  GOTO  13240 

13560  END  IF 
13570  Finish: ! 

13580  RETURN 


13600!**  END  OF  THE  STRING  EXTRACTION  SUB-ROUTINE  ** 
13610!********************************************** 


13620  SUBEND 
13630  ! 

13640  !************************************************ 

13650  !**  DATA  ARRAY  CONVERTER  AND  STORAGE  SUBROUTINE  ** 

13660  i****************************** ******************* 

13670  ! 

13680  SUB  Data_converter  ( Datums  (*),  Filenanie$) 

13690  DIM  Build_string$ [1000] 

13700  Build_string$=" * 

13710  Dimen=RANK (Datums ) 

13720  IF  Dimen<>2  THEN  Finish 
13730  Row_lower_bound=BASE( Datums, 1) 

13740  Row_upper_bound=BASE( Datums, 1 ) +SIZE ( Datums, 1) -1 
1  3750  Col_lower_bound=BASE( Datums, 2 ) 

13760  Col_upper_bound=BASE (Datums, 2 ) +SIZE( Da turns, 2) -1 
13770  CREATE  Filenames, 1 

13780  ASSIGN  @File_path  TO  Fi lenameS ; FORMAT  ON 
13790  ;************************************ 

13800  !**  BUILD  THE  DATA  COLUMN  HEADINGS  ** 

13810  ! ************************************ 

13820  Build_string$="Stage  Position"&CHR$(9)&"Exit  Prism*&CHR$(9)&"Meas 
Prism" &CHRS (9) &"Cell  1 "&CHRS (9) &"Cell  2 "&CHR$ (9) &"Cell  3"&CHR$<9) 
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1 3  830  Bui ld_s  t  r ing?=Bu i ld_st r i  ng$& *  Ex  it 

Quiescent  “  &CHR?  (9  )  5,  *  Loss ’&CHR?  ( 9  )  &  “Log  ( Loss  )  ’&CHR?  (10) 

13840  FOR  J=Row_lower_bound  TO  Row_upper_bound  ST FI'  1 
13850  FOR  I=Col_lower_bound  TO  Col_upper_bound- 1  STFI'  1 
13860  Bui ld_st r ing?=Bu i ld_str ing?&VAL? (Datums ( J , 1 ) ) &CIH<$ ( 9 ) 

13870  NEXT  I 

13880  Bui ld_string$=Bui ld_str ing?&VAL? (Datums ( J , I ) ) &CHR? (10) 

13890  OUTPUT  @File_path  USING  *  # , K’ ; Bu i ld_st r ing$ 

13900  Build_string$=“ “ 

13910  NEXT  J 

13920  ASSIGN  @Fiie_path  TO  * 

13930  GOTO  13970 
13940  Finish:! 

13950  BEEP  1708.98,1 

13960  DISP  "YOUR  DATA  ARRAY  IS  NOT  TWO  DIMENSIONAL* 

13970  SUBEND 
13980  ! 

13990  j ************************************** 

14000  ! *  *  END  OF  DATA  CONVERTER  SUBROUTINE  ** 

14010  !************************************** 

14020  SUB 

Hurst ( Num_o f_cho ices, Choices $ ( * ) , Steps? ( * ) , @Mult i , @ Voltmeter, Ini t ial_step 
Pressure2 ) 

14030 
14040 
14050 
14060 
14070 
14080 
14090 
14100 
14110 
14120 
14130 
14140 
14150 
14160 
14170 
14180 
14190 
14200 
14210 
14220 
14230 
14240 
14250 
14260 
14270 
14280 
14290 
14300 
14310 
14320 
14330 
14340 
14350 
14360 
14370 


************************************************************ 

**  THIS  SUBPROGRAM  ALLOWS  MENU-LIKE  CONTROL  OF  THE  HURST  ** 
**  MOTOR  CONTROLLER  THAT  DRIVES  THE  MEASUREMENT  ARM.  ** 

**  THIS  IS  DONE  TO  INITIALIZE  THE  POSITION  OF  THE  PRISM  ** 
**  AND  TO  DETERMINE  THE  COUPLING  PRESSURE  FOR  THE  RUN  ** 

it**********************************************************-. 

**  VARIABLE  DESCRIPTIONS:  ** 

*  *  *  * 

**  Num_of_choices  -  THIS  IS  THE  TOTAL  NUMBER  OF  ITEMS  ** 
**  LISTED  IN  THE  MENU  ON  THE  SCREEN  ** 


**  Choices$(*) 


*  * 
*  * 
*  * 
*  * 
★  ★ 
*  * 
*  * 


-  THIS  IS  A  SERIES  OF  STRINGS  CONTAINING  ** 
THE  TEXT  ASKING  FOR  INPUT  INFORMATION  ** 
e.g.  “1000  STEPS’  ** 

OPTION  BASE  0  MUST  BE  USED  e.g.  WHEN  ** 
Num_of_choices=3  then  Choices? (*)  MUST  ** 
BE  NUMBERED  Choices? ( 0 ), Choices? ( 1 ), AND  ** 
Choices?(2)  ** 

*  * 


**  Steps$ (*)  -  THIS  SET  OF  STRINGS  CONTAINS  THE 

NUMBER  OF  STEPS  THAT  WILL  BE  MOVED 
WHEN  THE  LEFT  OR  RIGHT  ARROW  KEY  IS 
PRESSED 


*★ 
*  * 
*  * 
*  * 
*  * 

**  @ MULT I  -  THIS  IS  THE  HPIB  ADDRESS  OF  THE  ** 

**  MULTI PROGRAMMER .  THIS  IS  IS  ASSIGNED  AT  THE  ** 


*  * 
*  * 


*  * 
*  * 


BEGINNING  OF  THE  PROGRAM 

0VOLTMETER  -  THIS  IS  THE  HPIB  ADDRESS  OF  THE  HP3457A 
VOLTMETER.  THIS  IS  ASSIGNED  AT  THE 
BEGINNING  OF  THE  PROGRAM 


*  * 
*  * 
** 
*  * 
*  * 
*  * 


**  Initial_steps  -  THIS  IS  THE  TOTAL  NUMBER  OF  STEPS 
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14380 
14390 
14  4  00 
14410 
14420 
14430 
14440 
1 44  bl) 
14  4  60 
14470 
14480 
14490 
14500 
14510 
14520 
14530 
14540 
14550 
14  560 
14570 
14580 
14590 
14600 
14610 
14620 
14630 
14640 
14650 
14660 
14670 
14680 
14690 
14700 
14710 
14720 
14730 
14740 
14750 
14760 
14770 
14780 
14790 
14800 
14810 
14820 
14830 
14  840 
14850 
14860 
14870 
14880 
14890 
14900 
14910 
14920 
14930 
14940 
14950 


**  THAI  THE  MOTOR  HAS  ROTATED  SINCE  THE  ** 
**  MANUAL  LOS  IT 1 ON I NO  OF  THE  FRISM  MEGAN  ** 
**  AFTER  THE  FINAL  PRESSURE  IS  DETERMINED  *  * 
**  BY  THE  USER  THIS  NUMBER  IS  USED  AS  A  ** 
**  BASE  REFERENCE  FOR  THE  AUTOMATED  ** 
**  MEASUREMENTS  ** 

★  *  It  * 
*******************************  *  *************************** 


|*************************************************** 

! *  *  SETUP  VOLTMETER  TO  READ  THE  MEASUREMENT  PRISM  ** 

J  *************************************************** 

I 

OUTPUT  ^Voltmeter; “TERM  REAR" 

OUTPUT  @Voltmeter; "CHAN  1" 

i 

i******************************************************** 

!**  THE  NEXT  4  LINES  CLEAR  THE  SCREEN, SET  THE  STARTING  ** 

!**  POINT  FOR  LABELS, SET  THE  PEN  TO  WRITE  AND  SET  THE  ** 

! *  *  CHARACTER  SIZE  ** 

I 

CLEAR  SCREEN 
PEN  1 

CSIZE  4t  . 5 

I 

j**x*******************************-********************* 

!**  THIS  LINE  MAKES  THE  CHOOSING  CURSOR  A  WHITE  BLOCK  ** 

i ******************************************************* 

i 

Cursor$=CHR$ ( 127 ) 

i 

i  *************************'*it*****'********************** 

!**  THE  FOR  NEXT  LOOP  PUTS  THE  CHOICES  ON  THE  SCREEN  ** 

t  ★★**★★★★★***★*★★**★•**■**★*■**■******■*■**************■***!►** 

I 

FOR  1=0  TO  Num_of _choices- 1 
MOVE  10,95-5*1 
LABEL  Choices$ ( I ) 

NEXT  I 

I 

l**^r★★**★★'A■**★*★**'★★**■*■★*♦***★*★■A■******★★**★***★★***J^*'♦'★*★★★♦★★ 

!**  THE  NEXT  3  LINES  PLACES  THE  CURSOR  BESIDE  THE  1st  CHOICE  ** 

I  *******-*x********'**'******'**************r****************'******* 


MOVE  5,95 
1=0 

LABEL  Cursor$ 

I 

I  *★*★**★★****★★***  **  ★**★★★***★*****■************★**★★*★♦**★★★★**★★★ 

!**  THE  NEXT  4  LINES  PRINT  THE  TOTAL  NUMBER  OF  STEPS  TAKEN  ** 

!**  AND  THE  CURRENT  PRISM  PRESSURE  ** 

|  ★★★*★***★★★★•******★*****■*★★**♦*♦★**★*★★*★**★★*•**•**★*★*★*★★★****** 
I 

ENTER  SVoltmeter ; Pressure2  !GET  CURRENT  PRISM  PRESSURE 
MOVE  10,20 

LABEL  "THE  TOTAL  NUMBER  OF  STEPS  TAKEN  IS  " ; Initial_steps 
LABEL  "THE  PRISM  PRESSURE  IS  " ; VAL$ ( Pressure2 *10 ) & "  Lbs" 
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14960 
14970 
14980 
14990 
15000 
15010 
15020 
15030 
1504  0 
15050 
15060 
15070 
15080 
15090 
15100 
15110 
15120 
15130 
15140 
15150 
15160 
15170 
15180 
15190 
15200 


i******************************************************************** 

!**  THE  NEXT  4  LINES  PRINTS  AN  OPERATING  INSTRUCTION  ON  THE  SCREEN  ** 

i 

MOVE  10,30 

LABEL  “ PRESS  RETURN  WHEN  MANUAL  ADJUSTMENT  IS  COMPLETE" 

MOVE  10,35 

LABEL  "USE  LEFT/RIGHT  ARROWS  TO  MOVE  MOTOR  (Left=Up,  Right=Down) • 

MOVE  10,40 

LABEL  "USE  UP/ DOWN  ARROWS  TO  SCROLL  MENU" 

i 

i******************************************************** 

!**  WHEN  A  KEY  IS  STRUCK  GO  TO  THE  MOVE  CURSOR  ROUTINE  ** 

i******************************************************** 

i 

Diddle_loop:  ON  KBD  GOTO  Movement 
PEN  - 1 
MOVE  10,20 
LABEL 

LABEL  "  * ; VAL$ ( Pressure2* 10 ) &  *  Lbs" 

PEN  1 

ENTER  @Voltmeter; Pressure2 
MOVE  10,20 
LABEL  " 


152 1C 
15220 
15230 
15240 
15250 
15260 
15270 
15280 
15290 
15300 
15310 
15320 
15330 
15340 
15350 
15360 
15370 
15380 
15390 
15400 
15410 
15420 
15430 
15440 
15450 
15460 
15470 
15480 
15490 
15500 
15510 
15520 
15530 


LABEL  “  " ;VAL$(Pressure2*10)&" 

GOTO  15130 

************************** 

**  MOVE  CURSOR  ROUTINE  ** 

************************** 

******************************************************** 

**  THIS  ROUTINE  ONLY  TAKES  ACTION  WHEN  THE  UP, DOWN  OR  ** 

**  RETURN  KEY  IS  PRESSED.  GO  TO  Up  ON  UP  KEY,  GO  TO  ** 

**  Down  ON  DOWN  KEY,  GO  TO  Take_data  ON  RETURN  ** 

******************************************************** 


Movement : ! 

Where$=KBD$ 

OFF  KBD 

IF  Where$=CHR$(255)&"-'"  THEN 
IF  Where$=CHR$ ( 255 ) & "V"  THEN 
IF  Where$=CHR$ ( 255 ) & "< "  THEN 
IF  Where $=CHR$ ( 255 ) & “ >"  THEN 
IF  Where$=CHR$ (255) & "E*  THEN 
GOTO  Diddle_loop 

I 

*********************************** 
!**  END  OF  MOVE  CURSOR  ROUTINE  ** 

i ********************************** 


Up 

Down 

Move_arm_up 
Move_a  rm_down 
Finished 


*************************** 

**  UP  MOVEMENT  ROUTINE  ** 
*************************** 


******************************** 
**  THIS  SCROLLS  THE  CURSOR  UP  ** 


Lbs" 
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15540 
15550 
15560 
15570 
15580 
15590 
15600 
15610 
15620 
1563  0 
15640 
15650 
15660 
15670 
15680 
15690 
15700 
15710 
15720 
15730 
15740 
15750 
15760 
15770 
15780 
15790 
15800 
15810 
15820 
15830 
15840 
15850 
15860 
15870 
15880 
15890 
15900 
15910 
15920 
15930 
15940 
15950 
15960 
15970 
15980 
15990 
16000 
16010 
16020 
16030 
16040 
16050 
16060 
16070 
16080 
16090 
16100 
16110 


!*»****»********«»»************** 

t 

Up:  ! 

FEN  -1 

MOVE  5,95-5*1 
LABEL  Cursors 
IF  1=0  THEN 

I=Num_of_choices-l 

ELSE 

1  =  1-1 

END  IF 
PEN  1 

MOVE  5,95-5*1 
LABEL  Cursors 
GOTO  Diddle_loop 

I 

i  a-********************************* 

!**  END  OF  UP  MOVEMENT  ROUTINE  ** 

j  **************************  *  ******* 

i 

|  ***************************** 

! *  *  DOWN  MOVEMENT  ROUTINE  ** 

\ a**************************** 

I 

i ******************************a*** 

!**  THIS  SCROLLS  THE  CURSOR  DOWN  ** 

I  **************************  ******** 

I 

Down :  ! 

PEN  -1 

MOVE  5,95-5*1 
LABEL  CursorS 

IF  I=Num_of_choices-l  THEN 

1=0 

ELSE 

1  =  1  +  1 

END  IF 
PEN  1 

MOVE  5,95-5*1 
LABEL  CursorS 
GOTO  Diddle_loop 

I 

|************************************ 

!**  END  OF  DOWN  MOVEMENT  ROUTINE  ** 

I  ************************************ 

I 

|*********************************** 

!**  BEGIN  STAGE  MOVEMENT  ROUTINES  ** 

i*********************************** 

i 

i**************************************************** 

!**  THIS  SUBROUTINE  MOVES  THE  MEASUREMENT  ARM  UP  ** 

!**  BY  THE  NUM.  INDICATED  BY  THE  CURRENT  VALUE  OF  ** 

!**  Steps$(I) .  ** 

!**  THE  COMPUTER  THEN  POLLS  THE  VOLTMETER  TO  ** 

!**  DETERMINE  THE  NEW  PRESSURE  ON  THE  PRISM  AND  ** 

!**  PRINTS  IT  ON  THE  SCREEN  ** 

i  **************************************************** 
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16120 
16130 
16140 
16150 
16160 
“&VAL 
1617  0 
16180 
16190 
16200 
16210 
16220 
16230 
16240 
16250 
16260 
16270 
16280 
16290 
16300 
16310 
16320 
16330 
16340 
16350 
16360 
16370 
16380 
16390 
16400 
16410 
16420 
16430 
16440 
16450 
16460 
16470 
16480 
16490 
16500 
16510 
16520 
16530 
16540 
16550 
16560 
16570 
16580 
16590 
16600 
16610 
16620 
16630 
16640 
16650 
16660 
16670 
16680 


Move_arm_up:  ! 

IF  VAL(Steps$ ( I ) ) >Init ial_steps  THEN 

OUTPUT  <3MulL  i ;  *WF,  8. 1 ,0,8.2, 5U()OT,OP,  8,  - 
$ ( In i t ia l_s teps )  &  "T“ 

WAIT  . 005 *  I n i t ia l_steps  !  WAIT  UNTIL  FINISHED 

ELSE 

OUTPUT  fiMulti  ;  *WF,  8 . 1 , 0, 8 . 2, 5000T.OP,  8,  -*&Steps$  ( I ) &"T" 
WAIT  . 005*VAL ( Steps $ ( I ) )  !  WAIT  UNTIL  FINISHED 

END  IF 


**************************************************************** 

**  CLEAR  THE  OLD  NUMBER  OF  STEPS  FROM  THE  SCREEN  THEN  PRINT  ** 

**  THE  NEW  NUMBER  OF  STEPS  AND  CURRENT  PRESSURE  ON  THE  SCREEN  ** 
**************************************************************** 

MOVE  10,20 
PEN  -1 

LABEL  “  ‘  ;  In i t ia l_steps 

LABEL  “  " ; VAL$ ( Pressure2*10  )  &  *  Lbs* 

ENTER  OVol tmeter ; Pressure2  !GET  NEW  PRESSURE 

*■*★★**★**★****★****★*★★★****★★**★*★★**★★*★ 

**  CALCULATE  NEW  TOTAL  STEPS  AFTER  MOVE  ** 

★  ★★★★★★*★★★*★****★★★*★★***★★★★**★***★***** 

IF  VAL ( Steps $ ( I ) ) >Init ial_steps  THEN 
lnitial_steps=0 

ELSE 

Initial_steps=Initial_steps-VAL(Steps$ ( I ) ) 

END  IF 

*★*★★★*★★***■**■•**★★★★★*★★*★*★★★★*★★*★ 

**  LABEL  NEW  VALUES  ON  THE  SCREEN  ** 
************************************ 

MOVE  10,20 
PEN  1 

LABEL  "  “ ;  Initial_steps 

LABEL  “  * ;VAL$(Pressure2*10)&'  Lbs* 

GOTO  Diddle_loop 


|  *★★***★★**★**★*****★★*■**'*■**★★•***★*■**★★*★*■*■**★*★*★*** 

!**  THIS  SUBROUTINE  MOVES  THE  MEASUREMENT  ARM  DOWN  ** 

! *  *  BY  THE  NUM.  INDICATED  BY  THE  CURRENT  VALUE  OF  ** 

! *  *  Steps$(I)  .  ** 

!**  THE  COMPUTER  THEN  POLLS  THE  VOLTMETER  TO  ** 

!**  DETERMINE  THE  NEW  PRESSURE  ON  THE  PRISM  AND  ** 

! *  *  PRINTS  IT  ON  THE  SCREEN  ** 

j  *****★**★★★★**★***★*★*★**★**•*★★***★★★***★*★★★****★** 

t 

Move_arm_down : ! 

I 

OUTPUT  @Mu 1 1 i ; " WF, 8 . 1 , 0 , 8 . 2 , 5000T, OP, 8, "&Steps$ ( I)  fit"T" 
WAIT  . 005*VAL (Steps$ { I ) )  !  WAIT  UNTIL  FINISHED 

i 

i  nr*************************************************************** 


16690 
16700 
16710 
16720 
16730 
16740 
1  67  SO 
16760 
16770 
16780 
16790 
16800 
16810 
16820 
16830 
16840 
16850 
16860 
16870 
16880 
16890 
1-6900 
16910 
16920 
16930 
16940 
169S0 
16960 
16970 
16980 
16990 
17000 
17010 


**  CLEAR  THE  OLD  NUMBER  OF  STEPS  FROM  THE  SCREEN  THEN  PRINT  ** 

**  THE  NEW  NUMBER  OF  STEPS  AND  CURRENT  PRESSURE  ON  THE  SCREEN  ** 

**************************************************************** 

MOVE  10,20 
PEN  -1 

LABEL  "  * ; I n l t la l_steps 

LABEL  *  ■ ;VAL$(Pressure2M0)6"  Lbs* 

ENTER  @Vol t me ter; Pressure2  !GET  NEW  PRESSURE 
Initial_steps=Initial_steps+VAL(Steps$ ( I ) ) 

MOVE  10,20 
PEN  1 

LABEL  *  " ; Initial_steps 

LABEL  *  * ; VAL$ ( Pressure2  *  1 0 ) &  *  Lbs* 

GOTO  Diddle_loop 

********************************* 

**  END  ARM  MOVEMENT  ROUTINES  ** 

********************************* 


**************************************************************** 

**  IF  THE  RETURN  KEY  IS  PRESSED  THE  SUBPROGRAM  TERMINATES  ** 

**  AND  RETURNS  THE  LAST  PRESSURE  READING  TO  THE  MAIN  PROGRAM  ** 

A***********#***************************************;************ 


I************************************************* 

! *  *  READ  PRISM  PRESSURE  FOR  USE  IN  MAIN  PROGRAM  ** 

!**  MOVE  PRISM  BACK  TO  HOME  POSITION  ** 

i ft************************************************ 

i 

Finished : ! 

ENTER  @Voltmeter; Pressure2  ! GET  NEW  PRESSURE 
OUTPUT  @Mu 1 1 i ; "WF, 8 . 1 , 0, 8 . 2 , 5000T,  OP,  8,  - 


"&VAL$ ( Init ial_steps ) &  *T" 

17020  WAIT  . 005*Initial_steps 

17030  CLEAR  SCREEN 

17040  SUREND 
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